在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：

F．unction Fun（x As Integer,ByVal y As Integer）As Integer

x=x+y

If x<0 Then

F．un=x

E．lse

F．un=y

E．nd If

E．nd Function

Private Sub Command1_Click（）

D．im a As Integer,b As Integer

a=-10：b=5

Text1.Text=Fun（a，b）

Text2.Text=Fun（a，b）

E．nd Sub

程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。

[单选题]在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： PrivateSubCommand1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本眶Text1中输入10，然后单击命令按钮，则在Text2中显示

[单选题]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中

[单选题]在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序

[单选题]在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2。编写如下两个事件过程：D．im Str1 As String，str2 As StringPrivate Sub form_load()Text1.Text=""Text2.Text=""Text1.Enabled=FalseText2.Enabled=FalseE．nd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)str1=str1 & C

[单选题]在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:D．im Str1 As String, str2 As StringPrivate Sub form_load()Text1.Text=""Text2.Text=""Text1.Enabled=FalseText2.Enabled=FalseE．nd SubPrivate Sub Form.str1=str1& Chr(KeyAscii)E．nd SubPrivate S

[单选题]在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Command1_Click（）x=Val（Text1.Text）Select Case xC．ase 1，3y=x*xC．ase Is>=10，Is<=-10y=xC．ase -10 To 10y=-xE．nd SelectE．nd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（ ）。A．执行y=x*xB．执行y=-xC．先执

[试题]在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：D．im SaveAll As StringPrivate Sub Command1_Click（）Text1.Text=Left（UCase（SaveAll），4）E．nd SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）SaveAll=SaveAll+Chr（KeyAscii）E．nd Sub程序运行后，在文本框中输入abcdefg，单击命令按钮，

[单选题]在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：D．im S1 As String, S2 As StringPrivate Sub Form_Load（）Text1. Text=””Text2. Text=””E．nd SubPrivate Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）S2=s2 & Chr（KeyCode）E．nd SubPrivat

[单选题]在窗体上画一个名称为Commaudl的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程； Private Sub Command1_Click() n=Text1. Text Select Case n Case 1 To 20 x=10 Case 2, 4, 6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select TextText=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2

[单选题]（ 35 ）在窗体上画 2 个命令按钮，名称分别为 Command1 、 command2 ，并编写如下程序C．onst n=5,m=4D．im a （ m,n ）Private Sub Command1_Click （）K=1F．or i=1 To mF．or j=1 To na （ i,j ） =kk=k+1Next jNext iE．nd SubPrivate Sub Command2_Click （）Summ=0F．or i=1 To mF．or j=1 To nIf i=1 Or i=