填空题
下列事件过程的功能是:通过Form _ Load事件给数组赋初值为35、48、15、22、67,Form_ Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容,将程 序补充完整。 Dim Arr ( ) Private Sub Form _ Load( )
【8】
End Sub Private Sub Form _ Click( )
【9】
If Int(x/3)=x/3 Then Print x End If Next x End Sub
【参考答案】
【8】Arc=Array(35,48,15,22,67)
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
在窗体上有一个命令按钮,然后编如下事件过程: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,输出结果是 【15】 。
点击查看答案&解析
填空题
给定年份,下列程序用来判断该年是否是闰年,请填空。Sub YN( ) Dim X AS Integer x=Input Box( 请输入年号 ) If( x Mod 4=0 【10】 x Mod l000) 【11】 (x Mod 400=0)Then Print 是闰年 Else Print 不是闰年,是普通年份 End IfEnd Sub
点击查看答案&解析
相关试题
给定年份,下列程序用来判断该年是否是闰年...
对话框在关闭之前,不能继续执行其他操作,...
当组合框的Style属性设置为何值时,组合框...
在Visual Basic中,被称为对象的是
Visual Basic标题栏上显示了应用程序的