VB期末复习资料

实得分值: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

。