下列程序运行后,在窗体上打印的结果是【 】。 Private Sub test(a, b,c) a = a + 1:
下列程序运行后,在窗体上打印的结果是【 】。 Private Sub test(a, b,c) a = a + 1: b = b + 2:C = C + 3 End Sub Private Sub Command1 Click() x = 1:v = 2:z = 3 Call test(x,y + 3, (z)) Print "Main:";x;y;z End Sub
下列程序运行后,在窗体上打印的结果是【 】。 Private Sub test(a, b,c) a = a + 1: b = b + 2:C = C + 3 End Sub Private Sub Command1 Click() x = 1:v = 2:z = 3 Call test(x,y + 3, (z)) Print "Main:";x;y;z End Sub
运行下列程序:
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后,则在窗体上显示的结果是()。
A.50
B.100
C.4
D.5050
程序为:
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
程序运行后,单击窗体后,在窗体显示的结果是:
执行下面的程序,单击窗体后在窗体上显示的第一行结果是(),第三行结果是()。
Private Sub Command1_Click()
s1="B"
For i = 1 To 3
s2=LCase(s1)
s1=s1 & s2
s=s & s1
Print s
s1=Chr(Asc(s1)+i)
Next i
End Sub
在窗体上画一个文本框和一个命令按钮,如下图所示。
编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1)); End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序,理解每个事件过程的操作,然后填空。 ①程序运行后,直接从键盘上输入abc,程序输出的结果是【 】。 ②程序运行后,单击一次“命令按钮1”,然后从键盘上输入abc,程序输出的结果是【 】。
在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dima As Variant
a=Array(1,2,3,4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是()。
A、4321
B、12
C、34
D、1234
运行下面的程序,单击窗体后在窗体上显示的内容是()。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j>1 and I>1 then a(I,j)=a(a(I-1,j-1),a(I,j-1))+1 else a(I,j)=I*j end if print a(I,j);” “; next j print next I end sub 程序运行后,单击命令按钮后,在窗体显示的结果是?
A.0
B.5
C.6
D.7