填空题

下面的程序要计算1+2+…+10,请补充完整。其中s是单精度类型的变量。
Dim x as Integer, s as Single
s=0
For x=1 to 10
s= 【15】
Next x

【参考答案】

s+x
<上一题 目录 下一题>
热门 试题

填空题
窗体上有退出(cmdexit)按钮和测试按钮(cmdtest)以及一个文本框txt，当单击测试按钮时，弹出一个消息框，消息框中包括“确定”和“取消”按钮，若单击“确定”按钮则在文本框中显示“显示”，若单击“取消”按钮则在文本框中显示“取消”。单击退出按钮关闭窗体。试将程序补充完整。 Private sub cmdtest_click() answer=msgbox( 显示钮按 , vbOkCancel) If 【13】 then txt= 显示 Else txt= 取消 End If End sub Private sub cmdexit_click() 【14】 End sub
填空题
在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程： Private Sub Cmd_Click( ) Dim sum,k For k=1 to 6 sum=30+k Next k MsgBox sum+k End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 【12】 。
相关试题