1、全国计算机等级考试二级 VISUAL+BASIC 题库 1+2014 年 3 月及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(总题数：40，分数：40.00)1.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Text1.Text = “Visual“ Me.Text1 = “Basic“ Text1 = “Program“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是（ ）（分数：1.00）A.VisualB.BasicC.Pr
2、ogramD.出错2.以下关系表达式中，其值为 False 的是（ ）（分数：1.00）A.“ABC“AbC“B.“the“they“C.“VISUAL“=UCase(“Visual“)D.“Integer“Int“3.语句 Print int(5/4*6/5) Mod 2 的输出结果是（ ）（分数：1.00）A.0B.1C.2D.34.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click( ) strText = InputBox(“请输入“) Text1.
3、Text = strText End Sub Private Sub Text1_Change( ) Label1.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是（ ）（分数：1.00）A.空B.abcdefC.abcD.def5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x = -5 If x 0 Then y = x 2 Else y = x End If Print
4、y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）（分数：1.00）A.-5B.25C.1D.-16.一个工程中含有窗体 Form1、Form2 和标准模块 Model1，如果在 Form1 中有语句 Pubilc X As Integer，在 Model1 中有语句 Pubilc Y As Integer，则以下叙述中正确的是（ ）（分数：1.00）A.变量 X、Y 的作用域相同B.Y 的作用域是 Model1C.在 Form1 的任何地方中可以直接使用 YD.在 Form2 中可以直接使用 X 和 Y7.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir
5、1 的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（ ）（分数：1.00）A.Drive1_ChangeB.Drive1_ClickC.Dir1_ClickD.Dir1_KeyPress8.在窗体上画一个命令按钮（其 NAME 属性为 Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a s = 0 a = Array(1, 2, 3, 4) For I = 4 To 1 Step -1 s = s + a(I) Next I Print
6、 s End Sub 运行上面的程序，单击命令按钮，其输出结果是（ ）（分数：1.00）A.4321B.1234C.34D.109.在窗体上画一个名称为 Text1 的文本框，编写以下代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 65 Or KeyAscii 90 Then msgBox “请输入大写字母“ KeyAscii = 0 End If End Sub 以下能说明该事件过程正确是（ ）（分数：1.00）A.要求文本框只能接收大写字母的输入B.要求文本框只能接收小写字母的输入C.要求文本框只能接收数字的输
7、入D.要求文本框只能接收 65 到 90 之间的数值的输入10.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f
8、2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是（ ）（分数：1.00）A.72 36B.108 36C.72 6D.27 311.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = “1234“ For i = 1 To 4 c1 = Trim(Str( ) Print c1 Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为（ ）（分数：1.00）A.Righ
9、t(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)12.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Command1_Click( ) n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print i Next i End Sub 该事件过程的功能是（ ）（分数：1.00）A.输出 n 以内的奇数B.输
10、出 n 以内的偶数C.输出 n 以内的素数D.输出 n 以内能被 j 整除的数13.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click( ) Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显
11、示的是（ ）（分数：1.00）A.11B.10C.9D.814.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击
12、命令按钮，在文本框中显示的值是（ ）（分数：1.00）A.15B.14C.13D.1215.以下程序段运行的结果为（ ） Private Sub Form_Click( ) MyDate = #7/21/1997# Print Format(MyDate, “m/d/yy“) Print Format(MyDate,“yyyy 年 m 月 dd 日“) End Sub（分数：1.00）A.7/21/97 1997 年 7 月 21 日B.7-21-97 1997 年 7 月 21 日C.97/7/21 1997 年 7 月 21 日D.7/21/97 97 年 7 月 21 日16.以下程序段
13、运行的结果为（ ） 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（分数：1.00）A.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:3017.以下程序段运行的结果为（ ） Private Sub Form_Click( ) MyD
14、ate = #7/21/1997# Print Format(MyDate, “dddd,mmmm,dd,yyyy“) End Sub（分数：1.00）A.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,199718.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox “帐号有非数字字符错误“ Text1.Text = “ Text1.SetFocus e
15、lse MsgBox “帐号正确“ End If End Sub 当在 text1 文本框中输入字符“abc“之后，单击命令按钮，结果为（ ）（分数：1.00）A.显示对话框，提示信息为“帐号正确“B.显示对话框，提示信息为“帐号有非数字字符错误“C.程序出错D.没有任何提示19.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox “帐号有非数字字符错误“ Text1.Text = “ Text1.SetFocus else M
16、sgBox “帐号正确“ End If End Sub 当在 text1 文本框中输入数字 123456 之后，单击命令按钮，结果为（ ）（分数：1.00）A.显示对话框，提示信息为“帐号正确“B.显示对话框，提示信息为“帐号有非数字字符错误“C.程序出错D.没有任何提示20.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer If Text1.Text “Gong“ Then I = MsgBox(“密码错误“, 5 + vbExclamation, “输入密码“)
17、 If I 4 Then End Else Text1.Text = “ Text1.SetFocus End If Else MsgBox “密码帐号正确！“ End If End Sub 若在 text1 中输入字符串“Gong“，则程序运行结果为（ ）（分数：1.00）A.显示对话框，提示“密码帐号正确！“B.显示对话框，提示“密码错误“C.程序出错D.没有任何提示21.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer If Text1.Text “Gong“
18、 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“，显示“密码错误“对话框，关于此对话框描述正确的是（ ）（分数：1.00）A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确22.在窗体中建立三个文本框，名称分别为 text1、tex
19、t2 和 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 Chr(asci); “=“; asci; i = i + 1
20、If i = 7 Then i = 0: Picture1.Print Next asci（分数：1.00）A.打印 ASCII 码表，一行 7 个表达式B.打印九九乘法表，一行 7 个表达式C.打印 ASCII 码表，一行 8 个表达式D.以上说法都不正确27.以下程序的作用是（ ） For i = 1 To 9 For j = 1 To 9 se = i se; Next j Picture1.Print Next i（分数：1.00）A.打印 ASCII 码表B.打印九九乘法表C.打印加法表D.以上说法都不正确28.下面是求 100 以内素数的程序，下面说法正确的是（ ） Private
21、 Sub Command1_Click( ) Dim i As Integer, m As Integer, tag As Boolean For m = 2 To 100 tag = True For i = 2 To m - 1 If m Mod i = 0 Then tag = False Next i If tag=true Then Print m Next m End Sub（分数：1.00）A.tag 为 true 时，表示 m 是素数B.tag 为 false 时，表示 m 是素数C.语句 m Mod i = 0，说明 m 是素数D.以上说法都不正确29.随机产生 10 个 1
22、00200 之间的数，求它们的最大值程序如下： Private Sub Command1_Click( ) Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x Max Then 【】 Next i Print Print “最大值=“; Max End Sub 在此程序中，其中【】处应该填写的是（ ）（分数：1.00）A.Max = 100B.Max =200C.Max = xD.Max = 030.随机产生 10 个 100200 之间的数，求它们的最大值程序如下： Private Sub Command1_Cli
23、ck( ) Max = 100 For I = 1 To 10 x =Int(Rnd * 101 + 100) Print x; If 【】 Then Max=x Next I Print Print “最大值=“; Max End Sub 在【】处应该填写的是：（ ）（分数：1.00）A.x MaxB.x MaxC.x = MaxD.以上都不正确31.以下是求 1100 之间 5 或 7 的倍数的和，如下程序段： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【
24、】处书写正确的是（ ）（分数：1.00）A.Sum = iB.Sum = Sum + iC.Sum = Sum + 5+7D.以上都不正确32.以下叙述中错误的是（ ）（分数：1.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D.Visual Basic 中控件的某些属性只能在运行时设置33.以下叙述中错误的是（ ）（分数：1.00）A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS 为
25、扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件34.以下叙述中错误的是（ ）（分数：1.00）A.双击鼠标可以触发 DblClick 事件B.在编程过程中，窗体或控件的事件的名称可以由编程人员自由确定C.移动鼠标时，会触发 MouseMove 事件D.控件的名称可以由编程人员设定35.以下不属于 Visual Basic 系统的文件类型是（ ）（分数：1.00）AfrmBbatCvbgDvbp36.以下叙述中错误的是（ ）（分数：1.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B.保存 Visual Basi
26、c 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行D.事件可以由用户引发37.以下声明语句中错误的是（ ）（分数：1.00）A.Const var1=123B.Dim var2 = ABCC.Public a,b as integerD.Static a as single38.设窗体上有一个列表框控件 List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（ ）（分数：1.00）A.List1.ListB.List1.ListIndexC.List1.IndexD.List1.Text39.程序运行后，在窗体上单击鼠标，此时窗体
27、不会接收到的事件是（ ）（分数：1.00）A.MouseDownB.MouseUpC.LoadD.Click40.设 a=10，b=5，c=1，执行语句 Print a b c 后，窗体上显示的是（ ）（分数：1.00）A.TrueB.FalseC.1D.出错信息二、基本操作题(总题数：2，分数：18.00)41.在名称为 Forml，标题为“选课”的窗体上添加一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下，程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。 注意：存盘时必须存放在
28、考生文件夹下，工程文件名保存为 sjtlvbp，窗体文件名保存为 sjtlfrm。 （分数：9.00）_42.在名称为 Forml 的窗体上添加一个名称为 HS1 的水平滚动条，其刻度值范围为 1100；添加一个命令按钮，名称为 C1，标题为“移动滚动框”。请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于 10 次)，滚动框向右移动 10 个刻度。程序运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。 （分数：9.00）_三、简单应用题(总题数：2，分数：24.00)43.在考生文件夹下有一个工程文件 sit3vbp，相应的窗体文件为 sjt
29、3frm。其功能是随机产生 30 个01000 的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Commandl，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。 （分数：12.00）_44.在考生文件夹下有一个工程文件 sjt4vbp，相应的窗体文件为 sjt4frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出 01000 范围内不能被 7 整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7 整除的整数的个数的操
30、作在通用过程 Fun 中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function 之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。（分数：12.00）_四、综合应用题(总题数：1，分数：18.00)45.考生文件夹下有一个工程文件 sjtsvbp，窗体上有两个文本框，名称分别为 Textl、Text2，都可以多行显示。还有三个命令按钮，名称分别为 C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的 in5dat 文件中的 50 个整数读到数组中，并在 Textl 中显示出来
31、；“排序”按钮的功能是对这 50 个数按升序排序，并显示在 Text2 中；“存盘”按钮的功能是把排好序的 50 个数存到考生目录下的 out5dat 文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click 事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 （分数：18.00）_全国计算机等级考试二级 VISUAL+BASIC 题库 1+2014 年 3 月答案解析(总分：100.00，做题时间：120 分钟)一、选择题(总题数：40
32、，分数：40.00)1.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Text1.Text = “Visual“ Me.Text1 = “Basic“ Text1 = “Program“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是（ ）（分数：1.00）A.VisualB.BasicC.Program D.出错解析：2.以下关系表达式中，其值为 False 的是（ ）（分数：1.00）A.“ABC“AbC“ B.“the“they“C.“VISUA
33、L“=UCase(“Visual“)D.“Integer“Int“解析：3.语句 Print int(5/4*6/5) Mod 2 的输出结果是（ ）（分数：1.00）A.0B.1 C.2D.3解析：4.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click( ) strText = InputBox(“请输入“) Text1.Text = strText End Sub Private Sub Text1_Change( ) Label1.Caption =
34、Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是（ ）（分数：1.00）A.空B.abcdefC.abcD.def 解析：5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x = -5 If x 0 Then y = x 2 Else y = x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）（分数：1.00）A.-5 B.25C.1D.-1解析：6.一
35、个工程中含有窗体 Form1、Form2 和标准模块 Model1，如果在 Form1 中有语句 Pubilc X As Integer，在 Model1 中有语句 Pubilc Y As Integer，则以下叙述中正确的是（ ）（分数：1.00）A.变量 X、Y 的作用域相同 B.Y 的作用域是 Model1C.在 Form1 的任何地方中可以直接使用 YD.在 Form2 中可以直接使用 X 和 Y解析：7.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个
36、事件过程是（ ）（分数：1.00）A.Drive1_Change B.Drive1_ClickC.Dir1_ClickD.Dir1_KeyPress解析：8.在窗体上画一个命令按钮（其 NAME 属性为 Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a s = 0 a = Array(1, 2, 3, 4) For I = 4 To 1 Step -1 s = s + a(I) Next I Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是（ ）（分数：1.00）A.4321B.
37、1234C.34D.10 解析：9.在窗体上画一个名称为 Text1 的文本框，编写以下代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 65 Or KeyAscii 90 Then msgBox “请输入大写字母“ KeyAscii = 0 End If End Sub 以下能说明该事件过程正确是（ ）（分数：1.00）A.要求文本框只能接收大写字母的输入 B.要求文本框只能接收小写字母的输入C.要求文本框只能接收数字的输入D.要求文本框只能接收 65 到 90 之间的数值的输入解析：10.在窗体上画一个名称为 T
38、ext1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮
39、，窗体上显示的是（ ）（分数：1.00）A.72 36B.108 36C.72 6D.27 3 解析：11.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = “1234“ For i = 1 To 4 c1 = Trim(Str( ) Print c1 Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为（ ）（分数：1.00）A.Right(c1,i)B.Left(c1,i) C.Mid(c1,i,1)D.Mid(c
40、1,i,i)解析：12.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Command1_Click( ) n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print i Next i End Sub 该事件过程的功能是（ ）（分数：1.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数 D.输出 n 以内能被 j
41、整除的数解析：13.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click( ) Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是（ ）（分数：1.00）A.11B.10C.9 D.8解析
42、：14.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）（分数：1.00）A
43、.15B.14C.13D.12 解析：15.以下程序段运行的结果为（ ） Private Sub Form_Click( ) MyDate = #7/21/1997# Print Format(MyDate, “m/d/yy“) Print Format(MyDate,“yyyy 年 m 月 dd 日“) End Sub（分数：1.00）A.7/21/97 1997 年 7 月 21 日B.7-21-97 1997 年 7 月 21 日 C.97/7/21 1997 年 7 月 21 日D.7/21/97 97 年 7 月 21 日解析：16.以下程序段运行的结果为（ ） Private Su
44、b 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（分数：1.00）A.July-97 9:21:30 PB.July-97 09:21:30 P C.07-97 9:21:30 PD.July-97 9:21:30解析：17.以下程序段运行的结果为（ ） Private Sub Form_Click( ) MyDate = #7/21/1997
45、# Print Format(MyDate, “dddd,mmmm,dd,yyyy“) End Sub（分数：1.00）A.21,07,1997B.21,07,21,1997C.Monday,July,21,1997 D.Monday,07,21,1997解析：18.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox “帐号有非数字字符错误“ Text1.Text = “ Text1.SetFocus else MsgBox “
46、帐号正确“ End If End Sub 当在 text1 文本框中输入字符“abc“之后，单击命令按钮，结果为（ ）（分数：1.00）A.显示对话框，提示信息为“帐号正确“B.显示对话框，提示信息为“帐号有非数字字符错误“ C.程序出错D.没有任何提示解析：19.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox “帐号有非数字字符错误“ Text1.Text = “ Text1.SetFocus else MsgBox “帐
47、号正确“ End If End Sub 当在 text1 文本框中输入数字 123456 之后，单击命令按钮，结果为（ ）（分数：1.00）A.显示对话框，提示信息为“帐号正确“ B.显示对话框，提示信息为“帐号有非数字字符错误“C.程序出错D.没有任何提示解析：20.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer If Text1.Text “Gong“ Then I = MsgBox(“密码错误“, 5 + vbExclamation, “输入密码“) If
48、I 4 Then End Else Text1.Text = “ Text1.SetFocus End If Else MsgBox “密码帐号正确！“ End If End Sub 若在 text1 中输入字符串“Gong“，则程序运行结果为（ ）（分数：1.00）A.显示对话框，提示“密码帐号正确！“ B.显示对话框，提示“密码错误“C.程序出错D.没有任何提示解析：21.在窗体中建立一个文本框 text1 和一个命令按钮 command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer If Text1.Text “Gong“ Then I = MsgBox(“密码错误“, VbRetryCancle + vbExcl
