A.10
B.20
C.30
D.40
[试题]在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:F.unction Fun(x As Integer,ByVal y As Integer)As Integerx=x+yIf x<0 ThenF.un=xE.lseF.un=yE.nd IfE.nd FunctionPrivate Sub Command1_Click()D.im a As Integer,b As Integera=-10:b=5Text1.Text=
[单选题]在窗体上画一个名称为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和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
[单选题]在窗体上画一个名称为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
[单选题]在窗体上画—个命令按钮和—个文本框,名称分别为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 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
[单选题]在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序: Private Sub Command1_Click() Dim x As String,y As String, C As String,d As String x = Text1.Text : y = TextText c = LCase(x):d = UCase(y) Print c; d End Sub 程序运行后,在文本框Texn、Text2中分别输入AbC和efG,结果
[单选题]在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序: Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (A)d=UCase (B)Print c;d End Sub程序运行后,在文本框Text1、Text2中分别输入AbC和Efg,结果是______ 。A.abcEFGB.abcefgC.ABCefgD.ABCEFG
[单选题]在窗体上画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.先执