题目内容
（请给出正确答案）
设有如下程序： Private Sub Command1 Click() Dim sum As Double， x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是()。
A．1+1/2+2/3+3/4+4/5
B．1+1/2+1/3+1/4+1/5
C．1/2+2/3+3/4+4/5
D．1/2+1/3+1/4+1/5
如果结果不匹配，请 联系老师 获取答案
更多“设有如下程序：Private Sub Command1 Cl…”相关的问题
9）设有如下程序：
Private Sub Form_Click()
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
设有如下程序：
Private Sub Form_Click()
Dim i As Integer，x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x，i，i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为
A．ABCCDEDEFG
B．AABBCDEFG
C．ABCDEFG
D．AABBCCDDEEFFGG
设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：
Private Sub Command1_Click()
Static x as integer
X=f(x+5)
Cls
Print x
End Sub
Private function f(x as integer)as integer
F=x+x
End function
连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是
A)10
B)30
C)60
D)70
设有如下过程： Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为（）。
A. A A
B. A B
C. A C
D. A D
设有如下程序： Private Sub Command1_Click() Dim Sum As Double， x As Double sum=0 n = 0 For i= 1 To 5 x = n / i n = n + 1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是
A．1+1/2+2/3+3/4+4/5
B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5
D．1+1/2+1/3+1/4+1/5
设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是()。
A．1+1/2+2/3+3/4+4/5
B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5
D．1+1/2+1/3+1/4+1/5
设有如下程序： Private Sub Command1_Click() Dim C As Integer， d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d＞0 If d＞c Then c=c+1 End If d=InputBox(“请输入一个整数”) Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9和0，则输出结果是
A．12
B．11
C．10
D．9
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是
A．2
B．6
C．10
D．12
设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是
A．4 3 21
B．543 2
C．6 54 3
D．7 6 54
设有如下程序：
Private Sub Command1_Click()
Dim sum As Double,x As Double
Sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是()。
A．1+1/2+2/3+3/4+4/5
B．1+1/2+1/3+1/4+1/5
C．1/2+2/3+3/4+4/5
D．1/2+1/3+1/4+1/5
