最新9月全国计算机等级考试二级vb笔试试题

Dim a as Integer ,b as Integer A=Inputbox(“请输入整数”) B=Inputbox(“请输入整数”) Pro a Pro b Call pro(a+b) End sub

Private sub pro(n as Integer)

精品文档． 精品文档

While (n>0) Print n Mod 10 N=n\\10 Wend Print End sub

此程序功能是：输入2个正整数,反序输出这2个数的每一位数字,再反序输出这2个数之和的每一位数字。例如：若输入123和234,则应该输出： 321 432 753

但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即两个数之和的反序),程序需要修改,下面的修改方案中正确的是

A)把过程pro 的形式参数n as Integer 改为 byval n as IntegerB)把 Call pro(a+b) 改为 pro a+b C)把 n=n\\10 改为 n=n/10D)在 pro b 语句之后增加语句c%=a+b ,再把 Call pro(a+b) 改为 pro c 二 填空题

6、在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别是 Text1,Label1和command1,然后编写如下两个事件过程；

Private Sub Command1_Click()

S$=InputBox(“请输入一个字符串”) Text1.Text=S$ End Sub

Private Sub Text1_Change()

Label1.Caption=UCase(Mid(Text1.Text,7)) End Sub

程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,则在标签中显示的内容是【6】

7、在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程： Private Sub Command1_Click()

a$=”National Computer Rank Examination” n=Len(a$) s=0

For i=1 to n b$=Mid(a$,i,1)

if b$=”n” then s=s+1 End If next i print s End sub

程序运行后,单击命令按钮,输出结果是【7】。

8、为了在运行是把d:\\pic文件下的图形文件a.jpg装入图片框picture1,所使用的语句为【8】 9、设有如下程序：

Private Sub Form_Click() Cls

a$=”ABCDFG” For i=1 to 6

Print Tab(12-i);【9】 Next i End Sub

程序运行后,单击窗体,结果如图所示,请填空。 G FG DFG CDFG BCDFG ABCDFG

10、在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码：

精品文档． 精品文档

Option Base 1

Private Sub Command1_Click() Dim Arr

Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72) Pos=0 Neg=0 For k=1 to 10 If Arr(k)>0 Then pos=pos+Arr(k) Else 【11】 End If Next k Print pos,neg End sub

以上程序的功能是,计算并输出数组Arr 中的10个数的正数之和pos与负数之和neg,请填空。 11、在窗体上画一个名为command1的命令按钮,然后编写如下程序： Private Sub Command1_Click()

Dim I AS integer Sum =0

N=inputbox(“enter a number”) N=val(n) For i=1 to n Sum =【12】 Next i Print sum End sub

Function fun(t as integer ) as long P=1

For i=1 to t P=p*i Next i

【13】

End function

以上程序的功能是,计算1！+2！+3！+….+n!,其中n 从键盘输入,请填空。

12、在窗体上画一个文本框,名称为Text1,然后编写如下程序： Private Sub Form_Load()

Open “d:\\temp\\dat.txt” For Output As#1 Text1.Text=”” End Sub

Private Sub Text1_KeyPress(KeyAscii As Interger) If KeyAscii=13 Then

If UCase(Text1.Text)=【14】Then

Close #1 End

Else

Write #1,【15】 Text1.Text=””

End if

精品文档． 精品文档

End if

End sub

以上程序的功能是：在D 盘temp 文件夹下建立一个名为dat.txt 的文件,在文本框中输入字符,每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容；如果输入“END”,则不写入文件,直接结束程序,请填空。

精品文档．