题目内容
（请给出正确答案）
[单选题]
下列程序段的运行结果是（）Private Sub Form_click（) Dim s1 s1 = 3: s2 = 2 s1 = s1 + s2 s2 = s1 + s2 Print s1, s2End Sub
A.出错
B.5 5
C.5 10
D.5 7
提问人：网友lixin080108
发布时间：2022-01-07
如搜索结果不匹配，请 
A. W1（x，3）
B. Call W1 3，x
C. Call W1（x，3）
D. W1 3，x
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“下列程序段的运行结果是（）Private Sub Form_…”相关的问题
第2题
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。
A．abc和ABC
B．abc和abe
C．ABC和abc
D．ABC和ABC
第3题
在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：
Dim S1 As String, S2 As String
Private Sub Form_Load（）
Text1. Text=””
Text2. Text=””
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
S2=s2 & Chr（KeyCode）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
S1=S1 & chr（KeyAscii）
End Sub
Private Sub Command1_Click（）
Text1.Text=S2
Text2.Text=S1
S1=""
S2=""
End Sub
程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（）。A．abc 和 ABC
B．abc 和 abc
C．ABC 和 abc
D．ABC 和 ABC
第4题
设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) ＞ 0 f2down% And f2down% Then If altdown% And f2down% Then Text ="abl" End If Ead Sub 程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是
A．Alt+F2
B．abl
C．随机出儿个数
D．不发生变化
第5题
编写如下程序代码： Private Sub Form_Click ( ) Dim i% ，s% For i = 1 To 5 s = sum(i) Print s; Next i End Sub Private Function sum(ByVal n As Integer) As Integer Static j As Integer j = j + n sum = j End Function 程序运行后，单击窗体，窗体上显示的结果是( )。
A、1 3 6 10 15
B、1 2 3 4 5
C、1 3 6 10 15
D、1 2 3 4 5
第6题
该程序运行后，result结果是 result=1 for i=1 to 6 step 3 result=result*i next i msgbox result
A、4
B、720
C、24
D、36
第7题
下列程序，当单击窗体时s的值是()
Private Sub Form_Click()
Dim s As Integer
s = Not 2 * 5<>11
Print s
End Sub
A. True
B. False
C.1
D.0
第8题
运行下列程序：
Private Sub Form_Click()
For i = 1 To 20
If fun1(i) Then
s = s + 1
End If
Next i
Print s
End Sub
Private Function fun1(y) As Boolean
If y Mod 2 $amp;fun1 = False
Else
fun1 = True
End If
End Function
单击窗体后，则在窗体上显示的结果是()。
A.110
B.10
C.0
D.20
