题目内容（请给出正确答案）

[主观题]

设有如下程序：Private Sub Commandl Click（)Dimsum As Double,x As D0ublesum=0n=0For i=1 To 5x

设有如下程序： Private Sub Commandl Click() Dimsum As Double,x As D0uble 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

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“设有如下程序：Private Sub Commandl Cl…”相关的问题

第1题

设有如下程序： Private Sub Form. Click（） Dim s As Long，f As Long Dim n As Integer，i A

s Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

点击查看答案

第2题

设有程序： Option Base 1 Private Sub Command1_Click（) Dim arrl, Max As Integer arrl=Arr

设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【】=arrl(1) For i=1 To 8 If arrl(i)＞Max Then【】 Next i Print "最大值是:" ; Max End Sub 以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

点击查看答案

第3题

阅读如下程序； Private Sub Form. Click（) msg1$=“继续吗？” msg2$=“操作对话

阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【】按钮。

点击查看答案

第4题

下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整

下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【】 End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_ X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【】 End Sub Private Sub Form_Db1Click() 【】 End Sub

点击查看答案

第5题

有如下的程序片段，该程序片段的执行完后，共执行循环______次。 Private Sub command1_ Click（)

有如下的程序片段，该程序片段的执行完后，共执行循环______次。 Private Sub command1_ Click() total =0 Counter = 1 do Print Counter total = total + Counter Print total, "111" Counter = Counter + 1 if total ＞= 10 then exit do End if Loop while Counter ＜= 10 End Sub

点击查看答案

第6题

Label2的标签，然后编写如下程序代码：Private x As IntegerPrivate Sub Command1_Click()a = 6:

Label2的标签，然后编写如下程序代码：Private x As IntegerPrivate Sub Command1_Click（)a = 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

点击查看答案

第7题

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【】。

点击查看答案

第8题

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：DimSa

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click（）

Text1.Text=Left（UCase（SaveAll），4）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

SaveAll=SaveAll+Chr（KeyAscii）

End Sub

程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。

点击查看答案

第9题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

点击查看答案

第10题

以下程序的功能是在程序运行后，单击命令按钮，输出如下结果： 1 4 7 2 5 8

3 6 9 请完善以下程序。 Private Sub Command1_Click() Dim Arr(3，3)As Integer For i=1 To 3 For j=1 To 3 Arr(i，j)=【】 Print Arr(i，j)； Next j Print NeXt i End Sub

点击查看答案

第11题

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序

： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是

A．abcEFG

B．abcefg

C．ABCefg

D．ABCEFG

点击查看答案