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
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "计算以10为底，10000的对数"
Form1.Print "单击窗体开始"
End Sub
2.编写求任意数的平方根的源程序，数由键盘输入。
Private Sub Form_Click()
x = Val(InputBox$("输入数据"))
Form1.Print "输入数据为"; x
Form1.Print "平方根为"; Sqr(x)
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "求任意数的平方根"
Form1.Print "单击窗体开始"
End Sub
3. 求任意半径和高的圆柱的表面积。
Private Sub Command1_Click()
r = Text1.Text
h = Text2.Text
s = 2 * 3.14159 * r * h + 2 * 3.14159
* r * r
Text3.Text = s
End Sub
4. 编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。
Private Sub Command1_Click()
Text1.Text = UCase$(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase$(Text1.Text)
End Sub
5.从键盘上输入小时，分和秒，把它转换为秒并输出。
Private Sub Form_Click()
H = InputBox("请输入小时", "小时")
H = Val(H)
M = InputBox("请输入分", "分")
M = Val(M)
S = InputBox("请输入秒", "秒")
S = Val(S)
Num = S + M * 60 + H * 60 * 60
Print H; "小时"; M; "分"; S; "秒="; Num; "秒"
End Sub
1.给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三角形能否构成三角形，如果可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。
解：从几何学可知，三角形的两边之和大于第三边。因此，如果输入的三角形三边中两边之和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，则输出该三角形的面积。
代码：
Private Sub Form_Click()
Dim a,b,c,s,t As Single
Start:
a = InputBox (“请输入A边的边长”)
a = Val (a)
If a = -1 Then End
b = InputBox (“请输入B边的边长”)
b = Val (b)
c = InputBox (“请输入C边的边长”)
c = Val (c)
If a + b <= c Or b + c <= a Or c + a <= b Then
MsgBox “所输入的值不能构成三角形，请重新输入”
GoTo Start
End If
s = ( a + b +c )/2
t = Sqr( s * (s - a) * (s - b) * (s - c))
Print “三角形的面积为：”;t
End Sub
2.税务部门征收所得税，规定如下
（1）收入在200元以内，免征；
（2）收入在200 ~ 400 元内，超过200 元的部分征收税3%；
（3）收入超过400 元的部分，纳税4%；
（4）当收入达到5000元或超过时，将4%税金改为5%；
代码：
Private Sub Form_Click()
r = InputBox(“请输入您的收入”)
r = Val(r)
If r <= 200 Then
tax = 0
ElseIf r> 200 And r <= 400 Then
Tax = (r - 200) * 0.03
ElseIf r> 400 And r <= 5000 Then
Tax = (r - 400) * 0.04
ElseIf r> = 5000 Then
Tax = (r - 400) * 0.05
End If
Print “收入”;r;”应纳税”;tax
End Sub
（注：可编辑下载，若有不当之处，请指正，谢谢!）