单项选择题窗体上没有任何控件,编写下列程序: Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(5, 2, 7, 6, 9) x = a(1) y = 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i)>m1 Then x = a (i) y= i End If Next i End If Print x; y End Sub 执行程序后,按下回车键后输出的结果为
单项选择题下列程序是将两个文本框(text1和text2)的内容进行组合,组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String,s2 As String S1=Text1.Text S2=Text2.Text For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1,i,1)+Mid(s2,i,1) Next i Pic1.Print s3 End Sub 程序运行后,在Text1文本框中输入“ABCDE”,在Text2文本框中输入“12345”,单击命令按钮,则在Pic1图片框中显示的内容是