10. 下列程序段是将意输入的八进制数转换成相应的十进制数，请完善程序。 Private Sub form_click()
Dim x As String, m As Integer x = InputBox(\输入一个八进制数\ n= 2○0
For i = 1 To n
k = Val(Mid(x, i, 1)) m = m + k * 8 ^ (n - i) ○21
Print \八进制数\对应的十进制数是\End Sub
第三章 习题
一 选择题
1. 设变量N是一个整型变量，则执行赋值语句N=“2”+3之后，变量N的值是（ ）。 （A）0 （B）3 （C）5 （D）23
2. 如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（ ）。 （A）0 （B）-1 （C）Ture （D）False
3. 如果Tab函数的参数小于1，则打印位置在第（ ）列。 （A）0 （B）1 （C）2 （D）3
4. 执行语句Print Format(5459.478,”##,##0.00”) ,正确的输出是（ ）。 （A）5459.48 （B）5,459.48 （C）5,459.478 （D）5,459.47
5. 下列程序执行的结果为（ ）。 Private Sub Form_click ( )
A=10 : b=3 Print b=a * b End sub
（A）30 （B）b=30 （C）False （D）不确定
6. 设a=6，则执行 x=IIF(a>5，-1,0) 后，x的值为（ ）。 （A）5 （B）6 （C）)0 （D）-1
7. 下列语句正确的是（ ）。
（A） if A>B Then T=A A=B B=T （B）if A>B Then T=A；A=B；B=T （C） if A>B Then T=A， A=B， B=T （D）if A>B Then T=A： A=B ：B=T
8. 在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程 Private Sub Form_Click()
x = -5: s = -5 Select Case s Case Is > 0 y = x + 1 Case Is >= 0 y = x + 2 Case Else y = x + 3 End Select
Label1.Caption = x Label2.Caption = y End Sub
程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是 （ ）。 （A）-5 和 -2 （B）-5 和 -4 （C）-5 和 -3 （D）-5 和 –5
9. 若要使如下程序中循环体语句执行3次，则应在loop until 后添入（ ）。 X=1 Do
Print x X=x+3
Loop until
（A）x>=7 （B）x<10 （C） x>=10 （D）x>7
10. 下列程序段中能够正确实现“如果X （A） （B） if X A=-15 if X （C） （D） if X A=-15 A=-15 PrintA End If End If PrintA 11. 下面语句正确的是（ ）。 （A）If x≥y Then T=A A=B B=T （B）If x﹤﹥y Then T=A; A=B ;B=T （C）If x﹥=y Then T=A A=B B=T （D）If x﹥=y Then T=A: A=B :B=T 12. 以下程序段执行后，变量c的值为（ ）。 A=2 B=19 Select Case b\\a Case Is<1 c=a*10+b Case 1To 9 c=a*100+b Case 10To 99 C=a*100+b End Select （A）0 （ B）21 （C）219 （D）2019 13． 下列程序段的执行结果为( )。 a=75 If a>60 Then i=1 If a>70 Then i=2 If a>80 Then i=3 If a>90 Then i=4 Print “i=”;i （A) i=1 （ B） i=2 （C） i=3 （D） i=4 14．多分支选择结构中，Select Case 语句的“测试表达式”( )。 （A）只能是数值表达式 （B）只能是字符串表达式 （C）可以是关系表达式或逻辑表达式 （D）可以是数值表达式或字符串表达式 15． 要使循环体至少执行一次，应使用( )循环。 （A）For?Next （B） While?Wend （C）do While?loop （D） Do?Loop[While|Until] 16．下列程序段中，循环体语句将共执行（ ）次。 t = 0 c = 1 Do t = t + c c = c + 1 If t >= 10 Then Exit Do End If Loop While c <= 10 Print c, t （A）4 （B ）5 （C ） 8 （D）10 17．下列程序段的执行结果为 （ ）。 a = 1: b = 0 Select Case a Case 1 Select Case b Case 0 Print \ Case 1 Print \ End Select Case 2 Print \End Select （A） **0** （B） **1** （C）**2** （D） 0 18．对While-Wend循环表述正确的是（ ）。 （A）先判断循环条件表达式,当其值为”假”时不执行循环体 （B）先判断循环条件表达式,当其值为”真”时不执行循环体 （C）后判断循环条件表达式,当其值为”假”时结束循环 （D）无论循环条件表达式如何,循环体至少执行一次 19．下列程序段的执行结果为（ ） 。 I = 4 a = 5 Do I = I + 1 a = a + 2 Loop Until I >= 7 Print \ （A） i=4 a=5 （B） i=7 a=13 （C） i=8 a=7 20．下列程序段中，循环体语句将共执行（ ）次。 For i = 1 To 2 For j = 1 To i For k = 1 To j Print \Next k, j, i （A）4 （B）6 （C ） 7 （D）8 21．以下程序段执行后，变量n的值是（ ）。 For i = 1 To 5 n = 0 For j = i To 5 n = n + 1 Next j Next i （A）15 （B）10 （C）5 （D）1 D） i=7 a=11 （ 22 .多分支选择结构执行哪一个分支的根据是（ ）。 （A） Select Case语句的“测试表达式”与Case语句的“变量值列表”同为false （B） Select Case语句的“测试表达式”与Case语句的“变量值列表”同为假 （C） Select Case语句的“测试表达式”与Case语句的“变量值列表”相匹配 （D） Select Case语句的“测试表达式”与Case语句的“变量值列表”完全相等 23．设有如下程序段： x = 2 For i = 1 To 10 Step 2 x = x + i Next 运行以上程序后，x 的值是（ ）。 （A） 26 （ B） 27 （C） 38 24．下面程序的循环次数是（ ）。 Private Sub Command1_Click() For i = 8 To 35 Step 3 Print i; Next End Sub （A） 10 （B） 9 （ C） 27 25．下列程序的执行结果是（ ）。 Private Sub form_click() x = 3: y = 2: z = -1 Print x > y >= z End Sub （A）Ture （B） False （C）1 （D）-1 26．以下程序段的输出结果为（ ）。 x = 1 y = 4 Do Until y > 4 x = x * y y = y + 1 Loop Print x （A）1 （B）4 （C）8 （D）20 27．退出Do?Loop循环可使用的语句为（ ）。 （A）Exit For （B）End For （C）Exit Do （ D） 57 （ D）28 （D）End Do