1. 首页 > 科技

大家好,我vb里面有很多类似名字的字程序,一个一个用if 实在太长,有没有办法做成子程序数组或其它办法?

如果我要在vb上编写一个程序 让人家输入一个名字 然后判断这个名字是否是我要的 怎么编写啊?

一个Text1,一个Command1 Private Sub Form_Load() Text1.Text="" Command1.Caption="确定" End Sub Private Sub Command1_Click() If Trim(Text1.Text)="你想要的名字" Then Msgbox"找到了他喜欢的名字了!","64","Very Happy" End Sub 这是LZ你需要的代码吧? 补充:Trim()函数为Vb的字符串去空格函数.

大家好,我vb里面有很多类似名字的字程序,一个一个用if 实在太长,有没有办法做成子程序数组或其它办法?

怎样用vb的if语句写一个判断字母是否为大小写的程序?

可以,示例如下:Dim a As String a = InputBox("输入一个字符:") a = Trim(a) If Len(a) a = Left(a, 1) If Asc(a) > 64 And Asc(a) MsgBox "大写字母" ElseIf Asc(a) > 96 And Asc(a) MsgBox "小写字母" Else MsgBox "非字母" End If

在VB里我想把一段编好的程序赋值给一个字母

这个 在c++里叫做宏 #define A xxx vb里没有这个但你可以用函数来代替 函数的作用主要就是 如果代码被多次使用 可以把代码写入函数里 然后通过调用函数来 执行这些代码

大家好,我叫江佳慧,大家帮我想一个四个字的名字,与我这个名字比较相似的,比较冷艳、酷酷的,拜托大家

江佳芷慧

跪求一个简单的VB猜数字小游戏.用IF条件语句编写.

已向你发送邮件,望采纳,谢谢.

给我一个简单的Vb小程序

给你写了个隔5秒改变一次窗体背景颜色的程序,即容易懂又好玩.Option Explicit '要求变量声明,根据个人习惯,建议最好使用 Dim i As Integer '定义i为全局变量 Private .

VB中,用If语句编写大小写字母转换程序,急用

'你说的是要用一个IF语句吗?Function Switch(S As String) As String Switch = IIf(S >= "a" And S = "A" And S评论0 00

求哪里有好的VB6.0似的 象VB.ENT那样按一个字母可以自动完成关键字

是.话说,MS的IDE编程软件都是有自动完成关键字辅助功能的呢!

vb中有没有一个函数可以判断这个输入框中是否包含一个字或者一个符号

InStr([start, ]string1, string2[, compare]),下标从1开始返回指定一字符串在另一字符串中最先出现的位置.在字符串string1中,从start开始找string2,省略start时从string1头开始找.找不到时,函数值为0.例如:XXX,XXXString2="xxx,xxx"If InStr(",",String2) 0 ThenMsgbox "有,"End If

在VC中有没有一个类似VB的InStr([start, ]string1, string2[, compare])函数,若有请说明其名称及使用方法

int findstr(CString str1,CString str2){ int i,l1,l2; l1=str1.GetLength(); l2=str2.GetLength(); for(i=0;i<l1-l2+1;i++) if(!str2.Compare(str1.Mid(i,l2))) break; return i;}Mid(i,j)函数是从字符串第i位截取j位返回截取字符串,Compare比较字符串相同返回 0.手边没电脑,用手机写的,不太完善,返回值还要处理一下,具体请自测