设有如下程序： 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_Cl…”相关的问题
第2题
9）设有如下程序：
Private Sub Form_Click()
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
第3题
设有如下程序：
Private Sub Form—Click()
Cls
a$=“ABCDFG”
For i=1 T0 6
Print Tab(12-i)；【 】
Nexti
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
.jpg)
第4题
设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是
A．6
B．5
C．4
D．3
第5题
（27）设有如下程序
Private Sub Command 1_Click()
x=10：Y=0
For i=1 To S
Do
x＝x-2
y＝y+2
Loop Until y＞5 Or x＜-1
Next
End Sub
运行程序，其中Do循环执行的次数是
A）15
B）10
C）7
D）3
第6题
设有如下程序：
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
第7题
设有如下程序
Private Sub Command1 Click（）
x=10：Y=0
For i=l To 5
Do
x=x-2
y=y+2
Loop Until y＞5 Or x＜-l
Nex1
End Sub
运行程序，其中Do循环执行的次数是（）。
A.15
B.10
C.7
D.3
第8题
设有如下程序； Private Sub Form_ Load() Show Text1.Text = " " Text1.SetFocus End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As SinglE)Print “程序设计” End Sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) Print "Visual Basic" End Sub程序运行后，如果在文本框中输入字母a(即直接按a键)，然后单击窗体，则在窗体上显示的内容是______。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．A程序设计
为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
赏学吧
微信搜一搜
赏学吧
