题目内容
（请给出正确答案）
对文本框Text1编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim b As String
b = Chr(KeyAscii)
KeyAscii = Asc(UCaseB、)
End Sub
运行时，下列叙述正确的是()。
A、 Text1中无法输入字符
B、 Text1中内容为"b"
C、 Text1中输入的字符都变为大写
D、 Text1中输入的字符都被转换成ASCII码
安装简答题APP，拍照搜题省时又省心！
更多“对文本框Text1编写如下事件过程：Private Sub …”相关的问题
在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是
A．visual basic
B．VISUAL BASIC
C．basic
D．BASIC
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 9
Sum=Sum=i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
A．在文本框Text1中输出45
B．在文本框Text1中输出0
C． 出错
D． 在文本框Text1中输出不定值
在窗体上画一个文本框(其Name属性为Text1)，编写如下事件过程，运行结果是______。 Private Sub Form_Load() Show Text1.Text="你好!" Text1.SetFocus For i=1 To 15 Sum=Sum+i Next i Text1.Text=Sum End Sub
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。
A．在文本框Text1中输出55
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。
A．在文本框Text1中输出55
B．在文本框Text1中输出0
C．出错
D．在文本框Text1中输出不定值
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
Str=Chr(KeyAscii)
KeyAscii=Asc(UCase (str))
Textl.Text=String(2, KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是
A．bbb
B．BBB
C．BB
D．bb
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1＝"VB programming"
Text2＝Text1
Text1＝"ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是
A．bbb
B．BBB
C．BB
D．bb
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strAs String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为()。
A．kk
B．kK
C．KK
D．Kk
在窗体上面有一个文本框，其名称为Text1，编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为()。
A．aaa
B．AAA
C．AA
D．aa
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
