填空题
下列事件过程的功能是:通过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)
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
有如下事件过程:Private Sub Commaild1_Click( )Dim i As IntegerFor i =1 To 2DCNext iEnd SubSub DC( )Dim x As Integer,m As StringStatic y,nx=x + 1y=y + 1m=m& * :n=n & # Print x,y,m,nEnd Sub程序运行后,输出的结果是( )。
A. 1 1 * # 1 1 * #
B. 1 1 * # 1 2 * #
C.1 1 * # 1 1 * ##
D. 1 1 * # 1 2 * ##
点击查看答案&解析
单项选择题
在窗体上画一个通用对话框图,其Name属性为Cont,瑞画一个命令按钮,Name属性为Command1,然后编写如下事件过程:Privute Sub Command1_Click( )Cont.FileName= Cont.Flags=vbOFNFileMustExistCont.Filter= All Files| * . * Cont.FilterIndes_3Cont.DialogTitle= Open File Cont.Action=1If Cont.FileName= ThenMsgBox No file selected ElseOpen Cont.FileName For Input As #1Do While Not EOF(1)Input #1. b$Print b$LoopEnd IfEnd Sub以下各选项,对上述事件过程描述错误的是( )。
A.++i;
B.D--;
C.c++;
D.--f;
点击查看答案&解析
相关试题
在关系模型中,把数据看成一个二维表,每一...
算法的基本特征是可行性、确定性、【 】和...
耦合和内聚是评价模块独立性的两个主要标准...
在修改列表框内容时,RemoveItem方法的作用...
下面程序是由鼠标事件在窗体上画图,如果按...