题目内容
（请给出正确答案）
设有如下程序： Private Sub Command1_Click() Dim sum As Double, k As Double sum=0 n=0 For i=1 To 5 k=n/i n=n+1 sum=sum+k 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
安装简答题APP，拍照搜题省时又省心！
更多“设有如下程序：Private Sub Command1_Cl…”相关的问题
设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【 】。程序进行后，单击窗体，输出结果为【 】。
设有如下程序： 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
设有如下程序： Private Sub sV(ByVal m As Integer, n As Integer) m = m * 2 n = n - 5 Print m; n End Sub Private Sub Form_Click() Dim x As Integer, y As Integer x = 10 y = 15 sV x, y Print x; y End Sub 运行程序，单击窗体，输出结果为_______________。
A、20 10 10 10
B、10 15 20 10
C、20 15 10 15
D、20 10 20 10
（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
设有如下程序：
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
设有如下程序 Private Sub Search(a()As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【 】。
设有如下程序； 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程序设计
设有如下程序： Private Sub Commandl_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 Command1_Click(Index As Integer) Select Case Index Case 0 Label1.BackColor = vbRed Case 1 Label1.BackColor = vbGreen Case 2 Label1.BackColor = vbBlue End Select End Sub 程序运行时单击第二个命令按扭Label1的背景色是（）。
A、红色
B、绿色
C、蓝色
D、白色
设有如下程序
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
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
