填空题

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click () n = 6 f = 1 s = 0 For i = 1 To n f = 【4】 s = s + f Next Print s End Sub 该事件过程的功能是计算s=1+1/2+1/3+…+1/n的值。请填空。

【参考答案】

1/i
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim arr1(10)As Integer, arr2(10)As Integer n=3 For i=1 To 6 arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n); arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。
A．12 3
B．3 12
C．14 3
D．3 14
填空题
在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及 Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按＜Enter＞键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如下图所示：如果存在，则在 Label2中给出提示“输入项已在组合框中”。请将程序补充完整。Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenFor i=0 To Combol.ListCount-1If Combol.Text= 【2】 ThenLabel2.Caption= 输入项已在组合框中 Exit SubEnd IfNext iLabel2. Caption = 已成功添加输入项 Combol. 【3】 Combol. TextEnd IfEnd Sub
相关试题