单选题

窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:Private Sub Command1_Click()Text2.Text=UCase(Mid(Text1.Text,5,4))End Sub在Text2中显示的是()。

A. form
B. list
C. FORM
D. LIST

查看答案
该试题由用户214****48提供 查看答案人数:29549 如遇到问题请 联系客服
正确答案
该试题由用户214****48提供 查看答案人数:29550 如遇到问题请联系客服

相关试题

换一换
单选题
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:当向文本框Text1中输入小写字母a时,文本框Text2中显示的是()
A.A B.a C.C D.c
答案
单选题
在窗体上有若干控件,其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。
A.TabStop B.Enabled C.Visible D.TabIndex
答案
单选题
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:在Text2中显示的是()
A.form B.list C.FORM D.LIST
答案
单选题
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Dim c As Stringc=UCase(Chr(KeyCode))Text2.Text=Chr(Ase(c)+2)End Sub当向文本框Text1中输入小写字母a时,文本框Text2
A.A B.a C.C D.c
答案
单选题
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:Private Sub Command1_Click()Text2.Text=UCase(Mid(Text1.Text,5,4))End Sub在Text2中显示的是()。
A.form B.list C.FORM D.LIST
答案
单选题
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyDown事件过程如下: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim s As String s=Chr(KeyCode+35) Text2.Text=s End Sub 当向文本框Text1中输入小写字母a时,文本框Text2中显示的是
A.A B.a C.D D.d
答案
单选题
在窗体上有两个文本框控件,名称分别为Text1和Text2,以下程序实现的功能是希望在文本框Text1中输入字符时,输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示,下划线处应填( )。
A.图20-1 B.Private Sub Text1_ _________() C.Text2. Text=Text1. Text D.nd Sub
答案
单选题
窗体上有名称分别为Textl、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Textl中输入“FormList”,然后单击命令按钮,执行如下程序:在Text2中显示的是()
A.form B.list C.FORM D.LIST
答案
单选题
在窗体上有一个文本框,其名称为Text1,编写下列事件过程:Private()
A.aaa B.AAA C.AA D.aa
答案
单选题
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。
A.4 B.6 C.8 D.12
答案
热门试题
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1),外观如下图所示。 编写如下程序: Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByValy As Integer) DoWhiley<>0tmp=x ModyX=yy=tmp Loop f=X End Function 运行程序,在Textl文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是( )。 在窗体上画两个名称分别为Text1、Text2的文本框,Text1的Text属性为“DatBase”,如下图所示。现有如下事件过程:运行程序,在文本框Text1中原有字符之前输入a,Text2中显示的是() 在窗体中添加一个命令按钮,名称为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,结果是______ 。 在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是()。 ( 19 )在窗体上画两个文本框(名称分别为 text1 和 text2 )和一个命令按钮(名称为 command1 ) , 然后编写如下事件过程: 在窗体上建立名称为Text1、Text2和删的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为command1的命令按钮,单击它将得到数M从右边起的N位数字,并把该数字显示在Text3文本框中,如下图所示。请填空。 private Fuction digit(ByVal m As Integer, ByVal n As Integer) As Integ 窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以 下程序中问号()处应填入的内容是______。Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End SubPrivate Sub Text2_LostFocus() Call CheckInput(Text2,1000) End SubSub CheckInput(t As ,x As Integer) If Val(t.Text)>x ThenMsgBox "请重新输入!"End IfEnd Sub 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”, 如图所示。现有如下事件过程: Private Sub Text1_Change()Text2.Text=Mid(Text1,1,1)End Sub运行程序,在文本框Text1中原有字符之前输入a,Text2中显示的是:()。 在窗体上建立名称为了ext1、Text2和Text3的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为Command1的命令按钮,单击它将得到数M从右边起的第N位数字,并把该数字显示在Text3文本框中,如图20-15如示。请填空。 Private Function digit(ByVal m As Integer,ByVal n As Integer) 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。编写如下程序Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text=""End SubPrivate Sub Command1_Click() x=Val(Text1.Text) y=Val(Te 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1),外观如下图所示。 编写如下程序: Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y 在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1),然后编写如下两个事件过程: Private Sub Command1_Click()Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change()Text2.Text=UCase(Text1.Text) End Sub 程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为Text1的文本框,用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除;重复上述过程5次。 Option Explicit Private 【12】 Dim k As Integer For k=1 to 100 If k Mod 20 Then 【13】 Else Text1.Text="" 在窗体上画两个文本框,名字分别为Text1和Text2,然后编写下列程序。程序运行后,如果在文本框 Text2中输入lmn,那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(Key 窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程: Private Sub Text1_Change(Index As Integer) Select Case Index Case 0 Text1 (1). FontSize = Text1 (0). FontSize * 2 Text1 (1). Text = Text1 (0). Text Case 1 Text1 设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框只能显示信息,不能接收输入信息,以下能实现该操作的语句是 在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click()Text1.Text=“计算机”Me.Text1=“等级”Text1=“考试” End Sub 程序运行后.如果单击命令按钮,则在文本框中显示的是 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program"End Sub运行后,如果单击命令按钮,则在文本框中显示的是 在窗体上有一个名称为Text1的文本框,现在要得到其中按键的ASCII码,应使用它的( )事件。 设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框只能显示信息,不能接受输入的信息,以下能实现该操作的语句是()。
购买搜题卡 会员须知 | 联系客服
会员须知 | 联系客服
关注公众号,回复验证码
享30次免费查看答案
微信扫码关注 立即领取
恭喜获得奖励,快去免费查看答案吧~
去查看答案
全站题库适用,可用于E考试网网站及系列App

    只用于搜题看答案,不支持试卷、题库练习 ,下载APP还可体验拍照搜题和语音搜索

    支付方式

     

     

     
    首次登录享
    免费查看答案20
    微信扫码登录 账号登录 短信登录
    使用微信扫一扫登录
    登录成功
    首次登录已为您完成账号注册,
    可在【个人中心】修改密码或在登录时选择忘记密码
    账号登录默认密码:手机号后六位