单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String*10 StuGrade As string*10 StuAgc As Integer End Type Private Sub Form_Click() Dim s As student Open c: student.txt For Random As #1 Len=Len(s) For i=1 To 1 s.StuName=InputBox( 请输入姓名 ) s.StuGrade=Input. Box( 请输入年级号 ) s.StuAge=Val(InputBox( 请输入年龄 )) Next i Close #1 End Sub

A．Print #1,s
B．Print#1,i
C．Put#1,,s
D．Put#1,,i

单项选择题

窗体上有两个文本框Text1、Text2以及一个命令按钮Comanand1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text = p2(p1(x), y) Text2.Text = p1(x) End Sub Private Function p1(x As Integer) As Integer x=x+y:y=x+y p1=x+y End Function Private Function p2(x As Integer, y As Integer) As Integer p2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为( )。

A．2 4
2 4
B．2 4
4 8
C．4 4
8 8
D．10 10
58 58

相关试题