发布时间 : 星期三 文章VB期末复习资料更新完毕开始阅读11af0a240066f5335a812187
实得分值:0
A、a=2 b=4 c=6 a=4 b=6 c=10
B、a=4 b=6 c=10 a=8 b=8 c=10
C、a=4 b=6 c=6 a=8 b=6 c=6
D、a=4 b=6 c=14 a=8 b=8 c=6
参考答案:C
第70题、下列程序段的执行结果为 K=0
For I=1 to 3 A=I^I^K Print A Next I
A、1 4 9 B、0 0 0 C、1 2 3 D、1 1 1 参考答案:D
第71题、下列程序段的执行结果为
A=\For I=6 to 2 Step -2 X=Mid(A,I,I) Y=Left(A,I) Z=Right(A,I) Z=X&Y&Z Next I Print Z
实得分值:0
41
。 。
A、ABA B、AABAAB C、BBABBA D、ABBABA 参考答案:C
第72题、以下程序段的执行结果为 。
Dim M(10),N(10) I=3
For T=1 to 5 M(T)=T N(I)=2*I+T Next T
Print N(I);M(I);
A、11 3 B、3 11 C、3 15 D、15 3 参考答案:A
第65题、下面是关于百钱买百鸡的问题。大意是：有100元钱，欲买100只鸡，公鸡5元一只，母鸡3元一只，小鸡一元3只，问可买公鸡、母鸡、小鸡各多少只。请将程序补充完整。
Private Sub Form_Click()
Dim x As Integer, y As Integer, c As Integer Print \公鸡\母鸡\小鸡\For x = 0 To 20 For y = 0 To 33 z = 【 ① 】
If 5 * x + 3 * y + z / 3 = 【 ② 】 Then Print x, y, z
【 ③ 】 Next y Next x End Sub
参考答案:100-x-y 100 End If
第66题、从键盘输入两个数，计算它们的最大公约数。请将程序补充完整。 Private Sub Command1_Click()
42
Dim m As Integer, n As Integer, u As Integer, v As Integer m = Val(inputbox(\请输入数m\ n = Val(inputbox(\请输入数n\ If m > n Then u = m: v = n Else
v = m: 【 ① 】 End If Do
【 ② 】 u = v: v = r
Loop 【 ③ 】 Print \最大公约数是\；u End Sub
参考答案:u=n r=u Mod v Until r=0
第67题、下面程序用\折半查询法\，对数组a中数值进行查询，请将程序补充完整。Option Base 1
Private Sub Form_Click() Dim a As Variant
a = Array(-10, 5, 8, 26, 30, 56, 69, 76, 90, 123) k = Val(InputBox(\输入要查询的关键值\ low = 1
【 ④ 】 Do While low <= hig
【 ⑤ 】 If k = a(m) Then
Print k; \ Exit Do
ElseIf k < a(m) Then hig = m - 1 Else
【 ⑥ 】 End If Loop End Sub
参考答案:hig=UBound(a) m=(low+hig)\\2 low=m+1
第68题、请把下面的程序段补充完整。 s = 5
For i = 2.6 【 ① 】 4.9 Step 0.6 s = s + 1
43
Next 【 ② 】
实得分值:0
参考答案:to i
第69题、单击Command1时，下列程序代码的执行结果为 。 Dim a As Integer,b As integer,c As Integer Private Sub Command1_Click() a=2:b=4:c=6 Call Proc1(a,b)
Print \Call Proc2(a,b)
Print \End sub
Public Sub Proc1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub
Public Sub Proc2(x As Integer, ByVal y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub
A、a=2 b=4 c=6 a=4 b=6 c=10
B、a=4 b=6 c=10 a=8 b=8 c=10
C、a=4 b=6 c=6 a=8 b=6 c=6
D、a=4 b=6 c=14 a=8 b=8 c=6
参考答案:C
第70题、下列程序段的执行结果为 I=0
For G=10 to 19 Step 3 I=I+1
44
。