在窗体上添加文本框Text1,然后编写下列程序: Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As In

admin2009-02-13  72

问题 在窗体上添加文本框Text1,然后编写下列程序:    Private Sub Form_Load()       Text1.Text=" "    End Sub    Private Sub Text1_KeyPress(KeyAscii As Integer)       Char=Chr(KeyAscii+1)       KeyAscii=Asc(Ucase(Char))    End Sub    Private Sub Command1_Click()       Print Text1.Text    End Sub    程序运行后,在文本框中依次输入1、2、3、a、b、c,单击命令按钮,则窗体上显示的内容是

选项 A、23BCD
B、ABC
C、!@#ABC
D、123abc

答案1

解析 在向文本框中依次输入1、2、3、a、 b、c的同时,Text1_KeyPress过程分别接收到的是KeyAscii(各字符的ASCII码),Chr函数将加过1的ASCII码转换成字符,UCase函数将字符转换成大写字符,数字保持不变,Asc函数又将字符转换成ASCII码,最后出现选项A的字符。
转载请注明原文地址:https://jikaoti.com/ti/VZq0FFFM
0

最新回复(0)