阅读程序写结果
题目：1、 在窗体模块中编写以下Function过程和窗体Click事件过程
Private Function CommFun(n As Integer)As Integer Dim I As Integer S=1
For i=1 To n s=s*i Next i
CommFun=s End Function
Private Sub Form_Click() Dim Sum As Integer Dim K As Integer sum=0
For k=1To 3
sum=sum+CommFun(k) Next k Print sum End sub
当程序运行时，在窗体中单击鼠标左键时，则程序的输出结果是 。 答案：9 权重：1 难易度：1
题目：2、 在窗体模块中编写以下Sub过程和窗体Click事件过程
Private Sub suba(x As Integer , y As Integer) Dim t As Integer t=x: x=y: y=t End Sub
Private Sub Form_Click() Dim a As Integer,b As Integer a=10:b=20 Call suba(a,b) Print a;b
Call suba(b,a) Print a;b End Sub
当程序运行时，在窗体中单击左键时，则程序的输出结果是 。 答案：20 10
10 20
权重：2 难易度：1
题目：3、 在窗体模块中编写以下Function过程和窗体Click事件过程
Private Function funa(x As Integer) As Integer Static s As Integer s=s+x
funa=funb(s) End Function
Private Function funb(y As Integer)As Integer Static sum As Integer
sum=sum+y funb=sum End Function
Private Sub Form_Click()
Dim acc As Integer ,i As Integer acc=0
For i=1 to 3 acc=acc+funa(i) Next i Print acc End Sub
当程序运行时，在窗体中单击左键时，则程序的输出结果是 。 答案：15 权重：1 难易度：2
题目：4、 在窗体模块中编写以下Sub过程和窗体Click事件过程
Private Sub sub1(ByVal a As Integer,b As Integer) a=a+b b=a+b End Sub
Private Sub Form_Click()
Dim x As Integer ,y As Integer x=10:y=20 Call sub1(x,y) sub1 x,y Print x;y End Sub
当程序运行时，在窗体中单击左键时，则程序的输出结果是 。 答案：10 110 权重：2 难易度：1
题目：5、在窗体中添加一个文本框（名称为Text1）和一个命令按钮（名称为Command1），
编写Command1的Click事件过程和通用过程mysub，代码如下：
Private sub mysub(pal As String,a As Integer,b As Integer)
Dim str As String ,n As Integer,i As Integer n=Len(Trim(pal)) For i=1 to n
If Mid(pal,i,1)>=‖A‖ And Mid(pal,i,1)<=‖Z‖ Then a=a+1
ElseIf Mid(pal,i,1)>=‖0‖ And Mid(pal ,i,1)<=‖9‖ Then B=b+1 End If Next i End Sub
Private Sub Command1_Click()
Dim x As Integer ,y As Integer x=0:y=0
Call mysub(Text1.text,x,y) Print x;y End Sub
程序运行过程中，当在Text1文本框中输入：“There are 12 student studying VB”，然后
单击命令按钮时，则程序的输出结果为 。 答案：3 2 权重：2 难易度：1
题目：6、在窗体模块中编写以下Sub过程和窗体Click事件过程
Private Sub sub1(arr() As Integer ,Optional ByVal n As Integer=2) For i=1 To 5 arr(i)=i^n Next i End Sub
Private Sub form_click()
Dim a(1 To 5) As Integer ,i As Integer Call sub1(a(),3) Call sub1(a()) For i=1 To 5 Print a(i); Next i End Sub
当程序运行时，在窗体中单击左键时，则程序的输出结果是 。 答案：1 4 9 16 25 权重：2 难易度：2
题目：7、 在窗体上加一个文本框（其实称为Text1），编写如下事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr (KeyCode-3) End Sub
则程序运行后，如果Text1文本框中输入EFG，则在窗体上输出内容为 ；而如果在
Text1文本框中输入efg时，则在窗体上输出结果为 。 答案：B C D
B C D
权重：1 难易度：1
题目 ： 8、下列程序段的执行结果为（ ）。 M = 0
For I = 1 To 3
For J = 5 To 1 Step -1 N = N + 1 Next J Next I
Print N; J; I
答案: 15；0；4 权重：3 难易度：2
题目： 9、sub add(byval I as integer)
I=I+1 end sub sub form_click() dim x add x : print x end sub
写出程序运行结果____________ 。
答案：0 权重：4 难易度：2
题目： 10、 sub form1_click()
dim I,msg,nl,rep nl=chr(13) & chr(10) for rep=5 to 1 step –1 for I=asc(\ msg=msg & chr(I) next I msg=msg & nl next rep msgbox msg
end sub
答案：
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_.abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_.abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_.abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_.abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_.abcdefghijklmnopqrstuvwxyz 权重：2
难易度：2
题目：11、sub form1_click()
const max=5
dim exchange,I,msg,nl,temp dim a(max) nl=chr(13)&chr(10) a(1)=\杭州\a(2)=\西安\a(3)=\南京\a(4)=\苏州\a(5)=\济南\exchange=true
do while exchange=false for I=2 to max if a(I-1)>a(I) then exchange=true
temp=a(I)：a(I)=a(I-1)：a(I-1)=temp end if next I msgbox msg
end sub
答案：对数组A中的5项内容进行升序排列，输出时每一值占一行 权重：2 难易度：2
题目：12、sub test (byval I as integer) '写出
窗体单击后打印出的内容（注意格式）
I=I+1 Print I End sub
Sub form1_click() Dim I I=12 Print I Test I Print I
End sub
答案：12
13
12
权重：3 难易度：2
题目：13、scale (-5,5)-(5,-5)
line(-4,3.5)-(4,-3.5) line(-4,0)-(4,0)
line(0,-3.5)-(0,3.5)
要求：在下图画出执行结果，并注明-5，5，-4，4，3.5，-3.5,0
答案：
权重：2
难易度：2
题目：14. sub form1_load()
form1.keypreview=true end sub
sub form1_keydown(keycode as integer,……….)
if keycode =vbkeyA then command1.setfocus if keycode=vbcodeP then command2.setfocus
end sub
a、写出该段程序的结果及设置keypreview属性的作用。
B、写出当keypreview=false 时程序的执行结果。
答案：a、任一时候，按下“A”/“a”，command1获得焦点”，若按下“P”/“p”，command2获得焦点。
Keypreview作用：实现窗体在控件之前识别键盘事件。
B、当keypreview=false时，只有当在text1中输入“A”/“a”，“P”/“p”时，command1,command2相应获焦点。 权重：3 难易度：4
题目：15、把窗体的KeyPreview属性设置为True,并编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode) End Sub Private Sub
Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub (1) 程序运行后，如果将CapsLock键锁定在大写的状态，这时按下A键时，则：在窗体上输出的输出结果为 和 。
（2）如果将CapsLock键锁定在小写的状态，这时按下a键时，则：在窗体上输出的输出结果为 和 。 答案：(1)A 65 (2)A 97 权重：3 难易度：3
题目：16、sub form1_click () dim char ,filename,textdata
filename=inputbox(\输入文件名：\ if len(filename) then
open filename for input as #1 do while not eof(1) char =input(1,#1)
if char<>chr(10) then textdata=textdata&char else
msgbox textdata textdata=\ endif
loop close #1 end if end sub
答案：读取给定文件中的内容，读取时一个字符一个字符读取，放至textdata，直到遇到回车符，将该行文字显示之后将
textdata清空。（即逐行显示指定文件中的内容） 权重：3 难易度：3
题目：17、执行下面的程序段后，b的值为 。 a=300 b=20 a=a+b b=a-b a=a-b 答案：20 权重：3 难易度：3
题目：18、 以下程序段的输出结果是 。 num=0
While num<=2 num=num+1
Print num Wend
答案：1 2 3 权重：3 难易度：1
题目：19、 在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10) Dim p(1 To 3) k=5
For i=1 To 10
a(i)=i Next i
For i=1 To 3
p(i)=a(i*i) Next i
For i=1 To 3
k=k+p(i)*2 Next i Print k End Sub
程序运行后，单击命令按钮，输
出结果是 。 答案：33 权重：3 难易度：2
题目：20、 在窗体画一个命令按钮，然后编写如下过程：
Function fun(ByVal num As
Long)As Long
Dim k As Long k=1
num=Abs(num) Do While num
k=k*(num Mod 10) num=num\\10 Loop fun=k End Function
Private Sub Command1_Click()
Dim n As Long Dim r As Long
n=InputBox(\请输入一个数
\
n=CLng(n) r=fun(n) Print r