题目内容
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗V1中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String，S2 As String
Private Sub Form_Load()
Text1．Text=””
Text2．Text=””
TeXt1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Privtee Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Pfivtee Sub Command 1_Click()
Text1．Text=S1
Text2．Text=S2
S1=””
S2=””
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为()。
查看答案
搜索结果不匹配？点我反馈
更多问题
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是()。
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim aS，b$，c$，k％
a=”ABCD”
b=”123456”
c=””
k=1
Do While k＜=Len(a) Or k＜=Len(b)
If k＜=Len(a)Then
c=c&Mid(a，k，1)
End If
If k＜=Len(b)Then
c=c&Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是()。
下列可以打开随机文件的语句是()。
Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，2l，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim a As Integer,b As Integer,c As Integer,flag As Boolean
flag=False
a=1：b=1
Do While X＜b
c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是()。
微信支付 
支付宝支付