《第四章VB 控制 结构》由会员分享，可在线阅读，更多相关《第四章VB 控制 结构（36页珍藏版）》请在金锄头文库上搜索。
1、例：执行语句s=Len(Mid(“VisualBasic”,1,6)后，s的值 A）Visual B)Basic C)6 D)11,例：设a = “MicrosoftVisualBasic” ，则以下使变量b的 值为“VisualBasic”的语句是 A) b = Left(a, 10) B) b = Mid(a, 10) C) b = Right(a, 10) D) b = Mid(a, 11, 10),例：执行下面的程序段后，a、b的值为 a=300 b=20 a=a+b b=a-b a=a-b,20 300,例：在窗体上画一个文本框，然后编写如下事件过程 Private Sub Form
2、_Click() x = InputBox(“请输入一个整数”) Text1.Text = x + Text1.Text End Sub 程序运行时在文本框中输入456，然后单击窗体，在输 入对话框中输入123，单击“确定”按钮后在窗体上显示 的内容为 A) 123 B)456 C) 479 D) 123456,例：在窗体上画一个命令按钮和一个文本框，其名称 分别为Command1和Text1，把文本框的Text属性设置 为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(“Enter an integer”) b = Input
3、Box(“Enter an integer”) Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分 别输入8和10，则文本框中显示的内容是 A）108 B）18 C）810 D）出错,例：设有语句 x=inputbox (“输入数值”，“0”，“示例”) 程序运行后，如果从键盘上输入数值10并按回车键， 则下列叙述中正确的是（） A）变量x的值是数值10 B）在inputbox对话框标题栏中显示的是“示例” C）0是默认值 D）变量x的值是字符串“10”,例：a = InputBox(“Today“, “Tomorrow“, “Yesterda
4、y“, , , “Day before yesterday“, 5) 显示一个输入对话框在对话框的输入区中显示的信息是 A）Today B）Tomorrow C）Yesterday D）Day before yesterday,例以下关于MsgBox的叙述中，错误的是 A)MsgBox函数返回一个整数 B)通过MsgBox函数可以设置信息框中图标 和按钮的类型 C)MsgBox语句没有返回值 D)MsgBox函数的第二个参数是一个整数，该参数 只能确定对话框中显示的按钮数量,例：假定有如下的窗体事件过程： Private Sub Form_Click() a= “Microsoft Visua
5、l Basic“ b= Right(a, 5) c= Mid(a, 1, 9) MsgBox a, 34, b, c, 5 End Sub 程序运行后单击窗体弹出的信息框标题栏中 显示的信息是 A) Microsoft Visual B) Microsoft C) Basic D)5,34=2+32 VBAboutRetryIgnore + VBQuestion,例：在窗体上画一个命令按钮，名称为Command1， 然后编写如下事件过程： Private Sub Command1_Click() a= “software and hardware“ b= Right(a, 8) c= Mid(
6、a, 1, 8) MsgBox a , , b, c, 1 End Sub 运行程序单击按钮在弹出的信息框标题栏中显示的是 A）software and hardware B）software C）hardware D）1,例：假定有如下的命令按钮(名称为Command1)事件过程： Private Sub Command1_Click() x=InputBox(“输入：”，“输入整数”) MsgBox“输入的数据是：”， “输入数据：”+x End Sub 程序运行后，单击命令按钮，如果从键盘上输入整数10， 则以下叙述中错误的是 Ax的值是数值10 B输入对话框的标题是“输入整数” C信息
7、框的标题是“输入数据：10” D信息框中显示的是“输入的数据是：”,例、窗体上有一个名称为Command1的命令按钮， 其事件过程如下： Private Sub Command1_Click() x=“VisualBasicProgramming” a=Right(x,11) b=Mid(x,7,5) C=Msgbox(a, , b) End Sub 运行程序后单击命令按钮，以下叙述中错误的是 ）信息框的标题是Basic B) 信息框中的提示信息是Programming C) C的值是函数的返回值 D）MsgBox的使用格式有错,例：语句“Form1.Print Tab(10);”#“”的作用
8、是在窗体当 前输出行 A、第10列输出字符“#” B、第9列输出字符“#” C、第11列输出字符“#” D、输出10个字符“#”,例Print语句的一个输出表达式为 ，则输出包括 日期、时间信息 A、Date B、Month C、Time D、Now,例. 语句Print “5*5“ 的显示结果是 A、25 B、“5*5“ C、5*5 D、出现错误提示,例下列程序段的输出结果是 a=10: b=10000: x=log(b)/log(a): Print “lg(10000)=“;x A、lg(10000)=5 B、lg(10000)=4 C、4 D、5,例下面程序运行的结果为：( ) Dim
9、aa As integer aa=3.8 Print aa A、3.8 B、aa=4 C、4 D、3,例在窗体上画一个名称为Command1的命令按钮， 然后编写如下事件过程： Private Sub Command1_Click() a= “Visual Basic” Print String(3,a) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 A）VVV B）Vis C)sic D)11,例：设x=4，y=6，则以下不能在窗体上显示 出“A=10”的语句是 APrint A=x+y BPrint“A=“;x+y CPrint “A=“+Str(x+y) DPrint“
10、A=“&x+y,例、写出运行结果 a = 100 b = 50 c = 30 If a b Or b c Then b = c If b = c And a c Then a = a 100 Print a, b, c 下列程序的执行结果为 A)100 50 30 B)-100 30 30 C)-100 50 30 D)100 30 50,例、下列程序运行的结果是 Dim k as integer k=1 If k=1 then a=2*k If k=2 then a=2*k+2 If k=4 then a=k Print k;a A) 1 2 B) 1 4 C) 1 1 D) 2 4,例:P
11、rivate Sub Command1_Click() Textl.Text=“Visual Basic” End Sub Private Sub Text1_LostFocus() If Text1.Text “BASIC”Then Text1.Text=” Text1.SetFocus End If End Sub 程序运行时，在Text1文件框中输入“Basic然后单击Command1按钮，则产生的结果是 ）文本框中无内容，焦点在文本框中 B）文本框中为“Basic”,焦点在文本框中 C）文本框中为“Basic”,焦点的按钮上 D）文本框中为“Visual Basic”,焦点的按钮上,例
12、：在窗体上画一个Text1的文本框，要求文本框只能接收大写字母的输入。能实现操作的事件过程是 A)Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii90 Then MsgBox “请输入大写字母” KeyAscii=0 End If End Sub B)Private Sub Text1_KeyDown(KeyCode As Integer,Shift AsInteger) If KeyCode90 Then MsgBox “请输入大写字母” KeyCode=0 End If End Sub,例： 以下Case语句中错误的是
13、A) Case 0 To 10 B)Case Is10 C) Case Is10 And Is1,例下列关于Select Case的叙述中，错误的是 A）Case 10 To 100 表示判断值是否介于10与100之间 B）Case “abc”,“ABC” 表示判断值是否和“abc”、“ABC”两个字符串中的一个相同 C）Case “X“ 表示判断值是否为大写字母X D）Case -7,0,100 表示判断值是否等于字符串“-7，0，100“,例. 在窗体上画一个Command1命令按钮和两个Text1、Text2的文本框，然后编写如下事件过程 Private Sub Command1_Cli
14、ck() n = Val(Text1.Text) Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，在文本框Text1中输入10，然后单击命 令按钮则在Text2中显示的内容是,A）10 B）20 C）30 D）40,例在窗体上画一个Command1的命令按钮， Private Sub Command1_Click() x=Val(InputBox(“Input”) Select Case x
15、 Case 1,3 Print “分支1” Case Is4 Print “分支2” Case Else Print “Else 分支” End Select End Sub 程序运行，在输入对话框中输入2，则窗体上显示的是 A)分支1 B）分支2 C）Else分支 D）程序出错,例、设a=6，则执行x=IIf（a5，-1，0）后，x的值为 A、5 B、6 C、0 D、-1,例：设a = “a”，b = “b”，执行语句 x=IIf(ab),”A”,”B”)后，x的值为 A)”a” B)”b” C)”B” D)”A”,例：命令按钮Command1的单击（Click）输入-5，Text2结果为 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) y = IIf(x = 0, 1 + x, 1-2 * x) Text2.Text = y End Sub A) -4
