2014年计算机二级VB考试题及答案（12）
分级测试：
科目试题：
　　1.以下程序段运行的结果为(B)(单)　　Private Sub Form_Click( )　　MyDate = #7/21/1997#　　Print Format(MyDate, &m/d/yy&)　　Print Format(MyDate,&yyyy年m月dd日&)　　End Sub　　A.7/21/97 日　　B.7-21-97 日　　C.97/7/21 日　　D.7/21/97 97年7月21日　　2.以下程序段运行的结果为(B)(单)　　Private Sub Form_Click( )　　MyTime = #9:21:30 PM#　　MyDate = #7/21/1997#　　Print Tab(2); Format(MyDate, &mmmm-yy&)　　Print Tab(2); Format(MyTime, &hh:mm:ss A/P&)　　End Sub　　A.July-97 9:21:30 P　　B.July-97 09:21:30 P　　C.07-97 9:21:30 P　　D.July-97 9:21:30　　3.以下程序段运行的结果为(C)(单)　　Private Sub Form_Click( )　　MyDate = #7/21/1997#　　Print Format(MyDate, &dddd,mmmm,dd,yyyy&)　　End Sub　　A.21,07,1997　　B.21,07,21,1997　　C.Monday,July,21,1997　　D.Monday,07,21,1997　　4.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：　　Private Sub Text1_LostFocus( )　　If Not IsNumeric(Text1) Then　　MsgBox &帐号有非数字字符错误&　　Text1.Text = &&　　Text1.SetFocus　　else　　MsgBox &帐号正确&　　End If　　End Sub　　当在text1文本框中输入字符&abc&之后，单击命令按钮，结果为(B)(单)　　A.显示对话框，提示信息为&帐号正确&　　B.显示对话框，提示信息为&帐号有非数字字符错误&　　C.程序出错　　D.没有任何提示　　5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：　　Private Sub Text1_LostFocus( )　　If Not IsNumeric(Text1) Then　　MsgBox &帐号有非数字字符错误&　　Text1.Text = &&　　Text1.SetFocus　　else　　MsgBox &帐号正确&　　End If　　End Sub　　当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)　　A.显示对话框，提示信息为&帐号正确&　　B.显示对话框，提示信息为&帐号有非数字字符错误&　　C.程序出错　　D.没有任何提示　　6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：　　Private Sub Command1_Click( )　　Dim I As Integer　　If Text1.Text && &Gong& Then　　I = MsgBox(&密码错误&, 5 + vbExclamation, &输入密码&)　　If I && 4 Then　　End　　Else　　Text1.Text = &&　　Text1.SetFocus　　End If　　Else　　MsgBox &密码帐号正确!&　　End If　　End Sub　　若在text1中输入字符串&Gong&，则程序运行结果为(A)(单)　　A.显示对话框，提示&密码帐号正确!&　　B.显示对话框，提示&密码错误&　　C.程序出错　　D.没有任何提示　　7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：　　Private Sub Command1_Click( )　　Dim I As Integer　　If Text1.Text && &Gong& Then　　I = MsgBox(&密码错误&, 5 + vbExclamation, &输入密码&)　　If I &&4 Then　　End　　Else　　Text1.Text = &&　　Text1.SetFocus　　End If　　Else　　MsgBox &密码帐号正确!&　　End If　　End Sub　　若在text1中输入字符串&gong&，则程序运行结果为(B)(单)　　A.显示对话框，提示&密码帐号正确!&　　B.显示对话框，提示&密码错误&　　C.程序出错　　D.没有任何提示　　8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：　　Private Sub Command1_Click( )　　Dim I As Integer　　If Text1.Text && &Gong& Then　　I = MsgBox(&密码错误&, VbRetryCancle + vbExclamation, &输入密码&)　　If I && 4 Then　　End　　Else　　Text1.Text = &&　　Text1.SetFocus　　End If　　Else　　MsgBox &密码帐号正确!&　　End If　　End Sub　　若在text1中输入字符串&123&，显示&密码错误&对话框，关于此对话框描述正确的是(A)(单)　　A.显示对话框中有“重试”按钮　　B.显示对话框中有“确定”按钮　　C.显示对话框中有“是”按钮　　D.以上说法都不正确　　9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：　　Private Sub Command1_Click( )　　Dim x!, y!, z!, t!　　x = Text1　　y = Text2　　z = Text3　　If x & y Then　　t = x　　x = y　　y = t　　End If　　If y & z Then　　t = y　　y = z　　z = t　　If x& y Then　　t = x　　x = y　　y = t　　End If　　End If　　Label1.Caption = x & &,& & y & &,& & z　　End Sub　　当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)　　A.3,5,8　　B.5,3,8 C.8,5,3　　D.3.8.5　　10.以下程序段：　　Private Sub Form_Load( )　　Dim Nop As Integer, Op As String * 1　　Num1 = 3　　Num2 = 2　　Nop = val(Inputbox(&请输入1-4之间的整数&))　　Select Case Nop　　Case 1　　Op = &+&　　Result = Num1 + Num2　　Case 2　　Op = &-&　　Result = Num1 - Num2　　Case 3　　Op = &×&　　Result = Num1 * Num2　　Case 4　　Op = &÷&　　Result = Num1 / Num2　　End Select　　Label1= Num1 & Op & Num2 & &=& & Result　　End Sub　　窗体运行后，输入1，则label1的标题显示结果为(A)(单)　　A.3+2=5　　B.3-2=1　　C.3×2=6　　D.3÷2=1.5
全国计算机等级考试真题及解析
新闻?精选内容
12-1012-1012-1012-1012-1012-10VB文本框TEXT1中的路径引用到代码中_百度知道
VB文本框TEXT1中的路径引用到代码中
ds:\123\123&#92:&#92.des.ShowEnd IfEnd Sub注代码;ds,我要把等号右边的路径引用到下面的代码里。Private Sub Timer1_Timer()Static ft As Date, fn As LongIf Dir(&d，谢谢;&quot:&#92.des) && & ThenForm2Text1中的内容为SVE\F=d
  &=& End Exit_&#8194。所以文本框中的等号必须要有的;  Long  Then fn  &  Form2; As  Sub 把文本串按=分隔为数组; Timer1_Timer()&#8194,&quot。可以加个出错处理语句;   Error &#8194Private&#8194, ft On Exit_;&#8194. Dir(Split(Text1.Show Goto  &  Sub是这个意思吗;If )(1))  &quot。 '&#8194:End&#8194，取第2个元素就是路径，否则就会出错; If Static As Date
还是识别不了。如果在Text1中直接输入SVE\F=d:\123\ds.des可以识别。因为Text1中的内容SVE\F=d:\123\ds.des是自动从文件中提取的，是不是这里面有一个时间差呢？
可能字符串前后有空格或回车换行符什么的，Private Sub Timer1_Timer()    Static ft As Date, fn As Long
Dim path as String
path=trim(text1.text)
path=replace(path,vbcr,&&)
path=replace(path,vblf,&&)    On Error Goto Exit_    If Dir(Split(path,&=&)(1)) && && Then         Form2.Show    End If    Exit_:End Sub
其他类似问题
vb文本框的相关知识
按默认排序
其他1条回答
&quotIf Dir(Split(Text1, &)(1)) & &&=&quot
还是识别不了。如果在Text1中直接输入SVE\F=d:\123\ds.des可以识别。因为Text1中的内容SVE\F=d:\123\ds.des是自动从文件中提取的，是不是这里面有一个时间差呢？
判断之前 先
msgbox Split(Text1, &=&)(1)
看看是否正确
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁编写VB程序,根据用户在文本框text1中输入的文本,统计其中数字(0~9)中奇数和偶数的个数_百度知道
编写VB程序,根据用户在文本框text1中输入的文本,统计其中数字(0~9)中奇数和偶数的个数
,英文字母（区分大小写）的个数和其他字符的个数，并在窗体中输出统计结果。
我有更好的答案
按默认排序
vb还是VB.NET，这两种方式实现有很大差别，
当然是VB那！
Private Sub Command1_Click()ClsDim l, number, upper, lower, i, other As Integerl = Len(Text1.Text)For i = 1 To l Step 1If AscW(Mid(Text1.Text, i, 1)) &= 65 And AscW(Mid(Text1.Text, i, 1)) &= 90 Thenupper = upper + 1'MsgBox (AscW(Mid(Text1.Text, i, 1)))ElseIf AscW(Mid(Text1.Text, i, 1)) &= 48 And AscW(Mid(Text1.Text, i, 1)) &= 57 Thennumber = number + 1ElseIf AscW(Mid(Text1.Text, i, 1)) &= 97 And AscW(Mid(Text1.Text, i, 1)) &= 122 Thenlower = lower + 1Elseother = other + 1End IfNextPrint &文本长度为:& & l & vbCrLf & &数字一共有:& & number & vbCrLf & &大写字母有:& & upper & vbCrLf & &小写字母有:& & lower & vbCrLf & &其他字符有:& & otherEnd Sub
我输入了一下，好像有错误，数字数不出来。
请使用复制粘贴
其他类似问题
vb程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VISUAL BASIC历年真题题库
本试题来自：（2006年VISUAL BASIC历年真题，）一、选择题
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组 Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号()处应填入的内容是______。
Private Sub Option1 Click(Index As Integer)
If Text1.Text＜＞""Then
Select Case
Text2.Text=Val(Text1.Text)
Text2.Text=Val(Text1.Text)*10
Text2.Text=Val(Text1.Text)*100
End Select
End SubA．IndexB．Option1.IndexC．Option1(IndeD．Option1(IndValue正确答案：有， 或者 答案解析：有，
您可能感兴趣的试题
单项选择题：（)在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_ Load ()
Text1.Text=" "
Text1.SetFocusEnd SubPrivate Sub Command1_ Click()
Text1. Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form_ KeyPress (KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为 ______。A．vbVBB．不显示任何信息C．VBD．出错答案：有，答案解析：有，单项选择题：（)设有以下程序：Private Sub Form_ Click()
For i=1 To 4
y=InputBox(“请输入—个整数”)
If y Mod 5=0 Then
Print aEnd Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。A．100B．50C．120D．70答案：有，答案解析：有，
VISUAL BASIC历年真题最新试卷
VISUAL BASIC历年真题热门试卷