两题vb题 求答案,求解析!!!
?(29)在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,然后编写下列事件过程:DimS1AsString,S2AsString...
?(29)在窗体上画一个命令按钮和两个文本框,其名称分别为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
?(23)在窗体上画一个命令按钮,名称为Command1,然后编写下列事件过程:
Option Base 0
Private Sub Command1_Click( )
Dim A(4) As Integer, B(4) As Integer
For k=0 To 2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为( )。
A)0 B)2
C)3 D)4 展开
然后编写下列事件过程:
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
?(23)在窗体上画一个命令按钮,名称为Command1,然后编写下列事件过程:
Option Base 0
Private Sub Command1_Click( )
Dim A(4) As Integer, B(4) As Integer
For k=0 To 2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为( )。
A)0 B)2
C)3 D)4 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询