请教VB中的些些问题

来源:百度知道 编辑:UC知道 时间:2024/05/10 16:45:55
二级在即,请各位路过大发慈悲,指点迷津吧!!!

1.Private sob form_load()
text1.text=""
End sub
Private sub text1_keypress(keyascii as integer)
char=chr(keyascii)
keyascii=asc(Ucase(char))
End sub
Private sub command1_click()
Print text1.text
End sub
执行以上程序后在文本框输入123abc,单击按钮后结果为123ABC。
(为什么变成大写了呢?keyascii=asc(Ucase(char))这命令与最后的text的内容有什么关系吗?)

2. Private sub form_load()
text1=""
End sub
Private sub text1_change()
print text1.text
End sub
Private sub text1_keydown()
Print chr(keycode)
End sub
Private sub text1_keypress()
Print chr(keyascii)
End sub
执行以上程序后,在文本框输入字符“d”,输出结果为D d d
(想问一下change、keydown、keypress这几个事件的发生顺序是怎样的?为何得到以上结果呢?)

3. Private sub picture1_dragover()
Static a as boolean
If not a then
print "aa"
End if
End sub
private sub pi

1.Private sob form_load()
text1.text="" ‘初始状态Text中为空。
End sub
Private sub text1_keypress(keyascii as integer)
char=chr(keyascii) ‘将keyascii的值转换成字符复给Char。
keyascii=asc(Ucase(char)) ‘先将Cahr变量中的字符转换成大写,再转换成Accii码值并复给keyascii。
End sub
Private sub command1_click()
Print text1.text ‘在窗体上打印出Text1中的内容。
End sub
执行以上程序后在文本框输入123abc,单击按钮后结果为123ABC。
(为什么变成大写了呢?keyascii=asc(Ucase(char))这命令与最后的text的内容有什么关系吗?)

2. Private sub form_load()
text1="" ‘Text1中的内容初始化为空。
End sub
Private sub text1_change()
print text1.text ‘在Text1 的改变事件中执行Print方法。
End sub
Private sub text1_keydown()
Print chr(keycode)
End sub
Private sub text1_keypress()
Print chr(keyascii)
End sub
执行以上程序后,在文本框输入字符“d”,输出结果为D d d
(想问一下change、keydown、keypress这几个事件的发生顺序是怎样的?为何得到以上结果呢?)
‘答:此问题我也没明白,有待正确答案的出现。
3. Private sub picture1_drago