单项选择题

设有如下程序：
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/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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2：六个标签，名称分别为Label1、Label2、 Latel3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。
A．Private Sub Command1_Click()
Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B．Private Sub Command1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
End Sub
C．Private Sub Command1_Click()
Label3.Caption=HScrolll*HScroll2
End Sub
D．Private Sub Command1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
End Sub
单项选择题
往窗体Form1上励口—个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItem i Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性 ______。
A．List1.List
B．List1.ListIndex
C．List1.MultiSelect
D．List1.Text
相关试题