运行下面的程序,单击窗体后在窗体上显示的内容是()。Private Sub Form_Click()For i = 1 To
运行下面的程序,单击窗体后在窗体上显示的内容是()。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
运行下面的程序,单击窗体后在窗体上显示的内容是()。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
第1题
程序为:
Private Sub Form_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后,单击窗体后,在窗体显示的结果是:
第2题
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
第4题
阅读下列程序并写出程序运行结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时,单击窗体Form1上的输出结果。
第7题
A. drawString(“Dolly”, 50, 10); }当编译并运行程序时输出的结果为()
B.字符串“Dolly”将在窗体的中间某位置显示
C.paint方法发生编译错误
D.字符串“Dolly”的底部将显示在窗体的顶部,而字符串的顶部将不可见
E.字符串“Dolly”将显示在窗体的底部
第8题
编写一个求阶乘的函数f(n),主调程序为求组合数的程序,分3次调用f(n),用来计算组合数的值,该程序的运行效果如下图所示。提示:求组合数的公式为保存工程和窗体,窗体文件名为:昵称-9-3.frm;工程名为:昵称-9-3.vbp。将工程文件和窗体文件压缩成:昵称-9-3.rar,以附件形式提交。
第11题
A.﹤input type="text" nClick="alert(this.value)"﹥
B.﹤input type="text" nChange="alert(this.value)"﹥
C.﹤input type="text" nChange="alert(text.value)"﹥
D.﹤input type="text" nClick="alert(value)"﹥