填空题
下列事件过程的功能是:通过Form _ Load事件给数组赋初值为35、48、15、22、67,Form_ Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容,将程序补充完整。 Dim Arr ( ) Private Sub Form _ Load( ) 【 】 End Sub Private Sub Form _ Click( ) 【 】 If Int(x/3)=x/3 Then Print x End If Next x End Sub
【参考答案】
Arc=Array(35,48,15,22,67)
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮, Form1窗体消失,显示Form2窗体,程序如下:Private Sub Command1_Click()【 】 Form2 【 】 End Sub试补充完整。
点击查看答案&解析
填空题
在窗体上有一个命令按钮,然后编如下事件过程:Function SR( x As Double)As DoubleSelect Case Sgn(x)Case 1SR=Sqr(x)Exit FunctionCase 0SR=0Case-1SR=-1End SelectEnd FunctionPrivate Sub Command1 _ Click( )Dim Msg,SRNDim N AS DoubleN=InputBox( 请输入要计算平方根的数 )Msg=N& 的平方根 Select Case SR(N)Case 0Msg=Msg & 是0 Case-1Msg=Msg& 是一个虚数 Case ElSeMsg=Msg & 是 & SR(N)End SelectMsgBox MsgEnd Sub程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是【 】。
点击查看答案&解析
相关试题
如果存在如下过程:Private Function FMa...
要使标签的背景样式为不透明,应将BackStyl...
下述语句段在运行时的显示结果是【 】。Ci...
在E盘当前目录文件夹下建立一个名为“Stude...
执行下面的程序段,x的值为【 】。 Priva...