【单选题】窗体上有 Text1 、 Text2 两个文本框 , 并有以下过程 : Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim ch As String ch = LCase(Chr(KeyCode)) Text2.Text = Chr(Asc(ch) + 2) End Sub 程序运行时 , 在 Text1 中输入了...
【单选题】窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序: Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Funl(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)...
【单选题】窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer X=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)A...
【单选题】窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序: Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(pl(x),y) Text2.Text=pl(x) End Sub Private Function pl(x As Integer)As Integ...
【单选题】窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Funl(x),y) Text2.Text=Funl(x) End Sub Private Function Funl(x As Integer) ...
【单选题】窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序: Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)...