请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
Private Sub Form_Activate() For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为【 】。
答案
更多“Private Sub Form_Activate（) For j = 1 to 3 x=3 For i”相关的问题
第1题
程序执行结果s的值是【 】。 Private Sub subl(Byval p As Integer) p=p * 2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call sub1 (i) if i＞4 then i=i mod 2 Print cstr(i) End Sub
第2题
程序执行结果s的值是【 】。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call sub1(i) if i＞4 then i=i mod 2 Print cstr(i) End Sub
第3题
下列程序运行后，在窗体上打印的结果是【 】。 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
第4题
在窗体上画一个文本框和一个命令按钮，如下图所示。
.jpg)
编写如下程序： 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，程序输出的结果是【 】。
第5题
第6题
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picturel.Print"等级考试" End Sub 程序运行后，在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
第7题
设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果为【 】。
第8题
单击窗体上的命令按钮Command1，程序的输出为【 】。 Private Sub Command1_Click() a="AbC" b="dEF" c=UCase(A)+LCase(B) Print Asc(C) End Sub
第9题
A.18
B.7
C.14
D.27
第10题
把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub For_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Fora_KeyPress(Key Ascii AS Integer) Print Key Ascii。 End Sub 程序运行后，如果按下A键，则在窗体上输出的数值为【 】和【 】。
