单项选择题

在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str AS String
str=Chr(KevAscii)
KevAscii=ASC(UCase(str))
Text1. Text=String(2，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。

A．aaa
B．AAA
C．AA
D．aa

<上一题目录下一题>

热门试题

单项选择题

在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是( )。 Private Sub Form_Click() Open C: SDat.txt For Output As 1 For i==1 To 5 StuNo=InputBox( 请输入学号 ) StuName=InputBox( 请输入姓名 ) StuEng=Val(InputBox( 请输入英语成绩 )) Nexti Close#1 EndSub

A．Input#1, StuNo，StuName, StuEn
B．Put#1, StuNo, StuName, StuEn
C．Write#1, StuNo, StuName, StuEn
D．Get#1, StuNO, StuName, StuEn

单项选择题

设有变量声明为“Dim aDate As Date”，则为变量aDate正确赋值的表达方式是( )。

A．aDate=#8/2008#
B．aDate=#"8/8/2008"#
C．aDate=Date("8/8/2008")
D．aDate=Format("m/d/yy"，"8/8/2008")

相关试题