单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)End SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yEnd FunctionPrivate Function p2(x As Integer,y As Integer)As Integerp2=2*x+yEnd 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

单项选择题

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

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

相关试题