题目内容
（请给出正确答案）
在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：
Private Sub Command1_Click（）
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen／2
temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则在窗体上显示的是（）。
A.ABCDEFG
B.AGBFCE
C.GFEDCBA
D.AGBFCED
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：Private Sub Command1_Click（）Print”相关的问题
在窗体上画一个名称为Command1的命按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x，y End sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A．4 2
B．12 18
C．12 30
D．4 6
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。
A．0
B．2
C．3
D．4
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click（）
Dim a（5.5） As Integer
For i=1 To 5
a（I,j）*5\10
Next j
Next i
S=0
For i=1 To 5
S=s+a（i,i）
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A．15
B．13
C．11
D．9
在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is＞=10,Is＜=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。
A．执行y=x*x
B．执行y=-x
C．先执行y=x*x，再执行y=-x
D．程序出错
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为______。
A．1
B．2
C．3
D．4
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click（）
Dim intNum As Integer
intNum=InputBox（"请输入："）
If Flag Then
Print f（intNum）
End If
End Sub
Function f（X As Integer）As Integer
If X＜10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp（Button As Integer,Shift As Integer,X As Single,Y As Single）
Flag=True
End Sub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为（）。
A．0
B．5
C．15
D．无任何输出
Private Sub Command1_Click（）
x=Val（Text1.Text）
Select Case x
Case 1，3
y=x*x
Case Is＞=10，Is＜=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（）。
A．执行y=x*x
B．执行y=-x
C．先执行y=x*x，再执行y=-x
D．程序出错
Function Fun（x As Integer,ByVal y As Integer）As Integer
x=x+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1_Click（）
Dim a As Integer,b As Integer
a=-10：b=5
Text1.Text=Fun（a，b）
Text2.Text=Fun（a，b）
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Pdnta=b+c End Sub 程序运行后，单击命令按钮，输出的结果是______。
A．a=11
B．a=b+c
C．a=
D．False
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
