在文本框中,当用户键入一个字符时,能同时引发的事件的是()。A.KeyPress和ClickB.KeyPress和LostF
在文本框中,当用户键入一个字符时,能同时引发的事件的是()。
A.KeyPress和Click
B.KeyPress和LostFocus
C.KeyPress和Change
D.Change和LostFocus
在文本框中,当用户键入一个字符时,能同时引发的事件的是()。
A.KeyPress和Click
B.KeyPress和LostFocus
C.KeyPress和Change
D.Change和LostFocus
在文本框中,要使键入的所有字符都显示“*”号,这时应该设置 ______ 属性为“*”号。
A.Text
B.MultiLine
C.ScrollBars
D.PasswordChar
Private Sub Form_Load()
Command 1.Enabled=False
End Sub
Private SubText1【 】()
Command1.Enabled=True
End Sub
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。
【说明】
本应用程序是一个小写数字转换成大写格式的转换器,其运行窗口如图5所示。
窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时,将文本框txtNumber中数字转换成中文大写,并显示在文本框txtChinese中。例如,在文本框txtNumber输入0076845,单击cmdChange按钮,将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。
程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0,再调用函数Change(Strdigit As String),将数字字符串Strdigit转换成中文大写格式。
为了防止用户在文本框txtNumber输入非数字形式的字符,程序将以空字符代替所输入的非数字有形字符。
【程序】
Private Function Transfer(Strdigit As String)As String
′完成小写向大写的转换,这段代码省略
End Function
Private Function CChinese(Strdigit As String)As String
Dim intLen,intCounter As Integer
intLen = Len (Strdigit)
If intLen>0 Then
intcounter = 0
Do '过滤数字串Strdigit的前导0
intcounter = intcounter + 1
Loop Until Mid(Strdigit,(1))
intLen =(2)
Strdigit =(3) (Strdigit,intLen)
CChinese = Transfer(Strdigit)
End If
End Function
Private Sub cmdChange_Click()
txtChinese.Text=CChinese((4)) '调用Cchinese函数
End Sub
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
Select Case KeyAscii '根据输入字符的ASCII码的值进行判断
Case KeyAscii<32 '保留输入的控制字符
Case 48 To 57 '保留输入的数字字符
Case Else '其他情况以空字符代替
(5)=0
End Select
End Sub
注意:
程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise40.vbp,窗体文件名为execise40.frm。
在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和bCommand),并编写了相应的事件过程。运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是______。
A.PrivateSubbCommand_Click()Caption="计算机等级考试"EndSub
B.PrivateSubtText_Click()bCommand.Caption="计算机等级考试"EndSub
C.PrivateSubbCommanCOmge()Caption="计算机等级考试"EndSub
D.PrivateSubtText_Change9bCommanD.Caption="计算机等级考试"EndSub
A ) Private Sub bCommand_Click()
Caption = " 计算机等级考试 "
End Sub
B ) Private Sub tText_Click()
bCommand.Caption = " 计算机等级考试 "
End Sub
C ) Private Sub bCommand_Change()
Caption = " 计算机等级考试 "
End Sub
D ) Private Sub tText_Change()
bCommand.Caption = " 计算机等级考试 "
End Sub
在窗休中添加了一个文本框和一个命令按佣.(名称分别为tText和bCommand),并编写了相应的事件过程。运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是______。
A.Private Sub bConunand_Click() Caption="计算机等级考试" End Sub
B.Private Sub tText_Click() bCommand.Caption="计算机等级考试" End Sub
C.Private Sub bCommand_Change() Caption="计算机等级考试" End Sub
D.Private Sub tText_Change() bCommand.Caption="计算机等级考试" End Sub
在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。
A.Private Sub Texl_Change() Commandl.Caption="计算机等级考试” End Sub
B.PrivateSubCommandl_Click() Caption="计算机等级考试"
C.Private Sub Commandl_Click() Text.Caption="计算机等级考试" End Sub
D.Private Sub Commandl_Click() Text1.Text="计算机等级考试" End Sub
A.Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B.Private Sub Command1_ Click ()
Caption = "计算机等级考试"
End Sub
C.Private Sub Form1_ Click ()
Text1.Caption = "计算机等级考试"
End Sub
D.Private Sub Command1_ Click ()
Text1.Text = "计算机等级考试"
End Sub