题目内容
(请给出正确答案)
[主观题]
下列程序实现的功能是:当在窗体上单击时,将随机产生100个3位数,并把它们写到D盘根目录下的文件my
file1.Dat中。 Private Sub Form_Click() Dim k As Integer Open【 】 Randomize For i=1 To 10 k=100+Int(899*Rnd) 【 】 Next i 【 】 End Sub
查看答案
如果结果不匹配,请 联系老师 获取答案
窗体中有两个命令按钮:“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时,执行如下事件过程。此事件过程的功能是:当在窗体中出现消息框并选中其中的“确定”按钮时,隐藏“显示”按钮。否则退出。根据题意,请完善下列程序。 Private Sub CmdTest_Click() Answer=【 】 ("隐藏按钮") IF Answer=vbOK then CmdDisplay. visible=【 】 Else End End IF End Sub
下列程序的功能是:当发生窗体的单击事件后,将在窗体上显示"1 ! +2! +3! +...+1 0 ! "的和。完善下列程序。
Private Sub Form_Click()
Dim s As Long,I As Integer
s=0
For i=1 To 1 0
s=s+()
Next i
Print s
End Sub
Private Function fact(ByVal n As Integer)As Long
Dim i As Integer,f As Long
f=1
For i=2 To n
f=f*i
Next i
()
End Function