VB顺序结构与选择结构练习题

VB顺序结构及选择结构练习 一、单选题

1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程

Private Sub Command1_Click() b=5 c=6

Print a = b + c End Sub

程序运行后，单击命令按扭，其结果为（D） A）a=11 B）a=b + c C）a= D）False

2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程

Private Sub Command1_Click(D) a=11 b=5 c=6

Print a = b + c End Sub

程序运行后，单击命令按扭，其结果为（） A）a=11 B）a=b + c C）a= D）True 3.以下语句的输出结果是（B） a = Sqr(3)

Print Format(a,”$$#### : ###”)

A）$1.732 B）$$1.732 C）$1732 D）$$00001.732 4.以下程序段的输出结果是（D） a = Sqr(3) b = Sqr(2)

c =a>b Print c

A）-1 B）0 C）False D）True 5.以下语句的输出结果是（C）

Print Format$ (32548.5,”000,000.00”)

A）32548.5 B）32,548.5 C）032,548.50 D）32,548.50 1.假定有如下语句：

answer$=MsgBox(“String1”,, “String2”, “String3”,2) 执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）1

2.InputBox函数返回值的类型为（B）

A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）

3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。

Private Sub Command1_Click()

a = InputBox(“Enter the First integer”) b = InputBox(“Enter the Second integer”) Print b + a End Sub

程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（D）A）579 B）123 C）456123 D）123456

4.执行下面的语句后，所产生的信息框的标题是（A） a = MsgBox(“AAAA”，，”BBBB”,””,5) A）BBBB B）空C）AAAA D）出错，不能产生信息框

5.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程

Privete Sub Command1_Click() MsgBox Str(123 + 321) End Sub

程序运行后，单击命令按扭，则在信息框中显示的提示信息为（B） A）123 + 321 B）字符串”444”C）数值444 D）空白 6.MsgBox函数的反回值的类型为（A）

A）整型(Integer) B）字符串C）变体D）整数或字符串（视选择的按扭而定）

1.假定有如下语句：

st$=InputBox(“请输入一串字符”, “输入对话框”, “请输入字符串”)

当用户输入完毕，按“确定”按扭后，st$变量的容是（） A）请输入一串字符 B）字符串对话框 C）请输入字符串 D）用户输入容 1. 假定有如下语句： Private Sub Form_Click() Dim a,b,x As Integer a = InputBox (“a=?”) b = InputBox (“b=?”) x = a + b

If a > b Then x = a - b Print x End Sub

运行时从键盘输入3和4，输入x的值是（C） A）3 B）5 C）7 D）9 2. 假定有如下语句： Private Sub Form_Click() b = 1 : a = 2 Print IIf (a >= b,a,b) End Sub

运行后输出的结果是（C）

A）0 B）1 C）2 D）3 3.假定有如下语句： Private Sub Form_Click()

s = Val (InputBox ( “Input Value of s:”)) Select Case s Case Is < 6 f = s + 1 Case Is < 5 f = s + 2 Case Is < 4 f = s + 3 Case Else f = s + 4 End Select Print s;f End Sub

运行时从键盘输入6，输出结果是（D） A）6 7 B）6 8 C）6 9 D）6 10 4. 假定有如下语句： Private Sub Form_Click() score = Int (Rnd * 10) + 80 Select Case score Case Is < 60 a$ = “F” Case 60 To 69 a$ = “D” Case 70 To 79 a$ = “C” Case 80 To 89 a$ = “B” Case Else

a$ = “A” End Select Print a$ End Sub

运行时输出的结果是（B） A）A B）B C）C D）D 5. 假定有如下语句 Private Sub Form_Click() a = Val (InputBox (“请输入a”)) b = Val (InputBox (“请输入b”)) x = a*a + b

If b > a Then x = b*b + a Print x End Sub

运行时从键盘输入3和4，输出X的值是（C）A）12 B）13 C）19 D）20

6. 假定有如下语句 Private Sub Form_Click() K = 2

If K >= 1 Then A = 3 If K >= 2 Then A = 2 If K >= 3 Then A = 1 Print A End Sub

运行时，输出的结果是（B） A）1 B）2 C）3 D）出错 7. 假定有如下语句 Private Sub Form_Click()

k = Val ( InputBox (“请输入一个数”)) If k <= 0 Then Abc = 4 : GoTo a

If k <= 1 Then Abc = 3 : GoTo a If k <= 2 Then Abc = 2 : GoTo a If k <= 3 Then Abc = 1 a:

Print k ; Abc End Sub

运行时输入3，输出的结果是（A） A）3 1 B）3 4 3 C）3 4 3 2 D）3 4 3 2 1 8.设有函数 r =1 x < 0 2 x >=0

则下列能正确计算该函数值的语句是（D） A）If x < 0 Then r = 1 ElseIf x >= 0 Then r = 2 End If

B）If x < 0 Then r = 1

ElseIf x >= 0 Then r = 2 Else r = 1 End If

C）Print ( IIf (x >0,1,2)) D）r = IIf (x < 0,1,2) 二、简答(填空)题

1.假设有如下程序，程序运行后，单击窗体输出结果是（032，548.60）Private Sub Form_Click ()

a = 32548.56

Print Format (Int((a*10+0.5)) / 10,”000,000.00”) End Sub

2.以下程序段的功能是（对变量X四舍五入后取整） x = 8.6 y=Int(x+0.5) Print y

3.假设有如下程序，程序运行后，单击窗体输出结果是（4） Private Sub Form_Click () a = 25 Mod (1-2^3) Print a End Sub

4.以下语句的输出结果是（Beijing） s$=”China” s$=”Beijing” Print s$

5.以下语句的输出结果是(3) a%=3.14156 Print a%

6.设 a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是 Print Format $ (a,”000.00”) 输出结果：002.45 Print Format $ (a,”###.#00”) 输出结果：2.449

Print Format $ (a,”00.00E+00”) 输出结果：24.49E-01 Print Format $ (a,”-#.####”) 输出结果：-2.4495

三、编程题

1.编写打印下面三角形图案的源程序（书上55页4题） * *** ***** ******* ********* 程序代码：

Private Sub Form_Click()

Form1.Print Tab(15); \"*\" Form1.Print Tab(14); \"***\" Form1.Print Tab(13); \"*****\" Form1.Print Tab(12); \"*******\" Form1.Print Tab(11); \"*********\" End Sub

Private Sub Form_Load() Form1.AutoRedraw = True

Form1.Print \"显示星号三角形,单击窗体开始\" End Sub

2.设a=5,b=2.5,c=7.8，编程序计算 y=πab/a+b*c 程序代码：

Private Sub Form_Click() a =5 : b = 2.5 : c = 7.8

y = (3.1416*a*b)/(a+b*c) Print “y=”;y End Sub

1.编写求以10为底，求10000的对数值的源程序。 Private Sub Form_Click()

Form1.Print Log(10000) / Log(10) End Sub