对窗体编写如下两个事件过程: private sub form_ keydown (keycode as integer, shift as integer) print chr (keycode) end sub private sub form_ keypress (keyascii as integer) print chr (keyascii) end sub程序运行后,如果直接按键盘上的a键(即不按住shift键),则在窗体上输出的字符分别为______ 和______ 。
程序执行结果s的值是 【7】 。 private sub sub1(byval p as integer) p=p*2 end sub private sub command1_click() dim i as integer i=3 call sub1(i) if i>4 then i=i mod 2 print cstr(i) end sub
将窗体的keypreview属性设置为true,然后编写如下过程: private sub form keydown(keycode as integer,shift as integer)print chr(keycode) end sub private sub form_keyup(keycode as integer,shift as integer)print chr(keycode 2) end sub 程序运行后,如果按“a”键,则输出的结果为
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: private sub form_click() text1. text="vb程序设计" end sub private sub text1_change() picturel. print "vb programming" end sub 程序运行后,单击窗体,则在文本框中显示的内容是 【6】 ,在图片框中显示的内容是 【7】 。
下列有关pc机外存储器的叙述中,错误的是___(8)___ 。
假定有一个文本框,其名称为text1,为了使该文本框具有焦点,应执行的语句是setfocus。
在e盘当前目录文件夹下建立一个名为“student.txt’’’的顺序文件,要求用inputbox函数输入5个学生的姓名(stuname)、年级(stugrade)和年龄(stuage)。 private sub form _ click( ) 【 】 for i=1 to 5 stuname=inputbox("请输入姓名") stugrade=inputbox("请输入年级号") stuage=inputbox("请输入年龄") 【 】 next i 【 】 end sub
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 sub pr( ) randomize dim a(10) for j=1 to 10 a(i)=int( 【14】 ) if 【15】then k=k 1 print a(j) next j print print k/10 end sub