题目内容
（请给出正确答案）
设有如下程序：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 Command1Cli…”相关的问题
设有如下程序： 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() 0pen "d：\vb\test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:\vb\test.txt的内容为I am a student．，那么程序运行后，单击命令按钮，其输出结果为______.
A．13
B．14
C．15
D．16
Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label
1.Caption = x
Label
2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b
As Integer)
x = a * a
y = b + b
End Sub
运行程序后， 则两个标签中显示的内容分别是
A.5和3
B.25和3
C.25和6
D.5和6
Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Command1_Click()
a = 6: b = 4
Call sub1(a, b)
Label1.Caption = a
Label2.Caption = b
End Sub
Private Sub sub1(ByVal x As Integer, ByVal y As Integer)
a = x * x
b = y * y
End Sub
程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
A.36和4
B.6和4
C.36和8
D.6和8
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。
A．4
B．5
C．6
D．7
A.ddd
B.dDd
C.DdD
D.DDD
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
（30 ）下面程序的输出结果是
Private Sub Command1_Click()
ch$= ” ABCDEF ”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S= ””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A ） ABCDEF
B ） FEDCBA
C ） A
D ） F
A.10
B.20
C.50
D.100
A.234
B.1234
C.23
D.123
