发布时间 : 星期三 文章阅读程序写结果更新完毕开始阅读
阅读程序写结果
题目: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