计算机二级VB语言程序设计考试题及答案

　　1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：

　　Private+Sub+Command1_Click(+)

　　n+=+Val(Text1.Text)

　　If+n2+=+n/2+Then

　　f+=+f1(n)

　　Else

　　f+=+f2(n)

　　End+If

　　Print+f;+n

　　End+Sub

　　Public+Function+f1(ByRef+x)

　　x=x*x

　　f1=x+x

　　End+Function

　　Public+Function+f2(ByVal+x)

　　x=x*x

　　f2=x+x+x

　　End+Function

　　程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

　　A.72+36

　　B.108+36

　　C.72+6

　　D.27+3

　　2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private+Sub+Command1_Click(+)

　　c+=+"1234"

　　For+i+=+1+To+4

　　c1+=+Trim(Str(+))

　　Print　c1

　　Next+i

　　End+Sub

　　程序运行后，单击命令按钮，要求在窗体上显示如下内容

　　1

　　12

　　123

　　1234

　　则在下划线处应填入的内容为(B)(单)

　　A.Right(c1,i)

　　B.Left(c1,i)

　　C.Mid(c1,i,1)

　　D.Mid(c1,i,i)

　　3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

　　Private+Sub+Command1_Click(+)

　　n+=+Val(Text1.Text)

　　For+i+=+2+To+n

　　For+j+=+2+To+sqr(i)

　　If+i+Mod+j+=+0+Then+Exit+For

　　Next+j

　　If+j+>Sqr(i)+Then+Print+i

　　Next+i

　　End+Sub

　　该事件过程的功能是(C)(单)

　　A.输出n以内的奇数

　　B.输出n以内的偶数

　　C.输出n以内的素数

　　D.输出n以内能被j整除的数

　　4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

　　Private+Function+f(m+As+Integer)

　　If+m+Mod+2+=+0+Then

　　f+=+m

　　Else

　　f+=+1

　　End+If

　　End+Function

　　Private+Sub+Command1_Click(+)

　　Dim+i+As+Integer

　　s+=+0

　　For+i+=+1+To+5

　　s+=+s+++f(i)

　　Next

　　Print+s

　　End+Sub

　　程序运行后，单击命令按钮，在窗体上显示的是(C)(单)

　　A.11

　　B.10

　　C.9

　　D.8

　　5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private+Sub+Command1_Click(+)

　　Dim+array1(10,+10)+As+Integer

　　Dim+i+As+Integer,+j+As+Integer

　　For+i+=+1+To+3

　　For+j+=+2+To+4

　　array1(i,+j)+=+i+++j

　　Next+j

　　Next+i

　　Text1.Text+=+array1(2,+3)+++array1(3,+4)

　　End+Sub

　　程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)

　　A.15

　　B.14

　　C.13

　　D.12

　　6.Visual+Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

　　7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。

　　Private+Sub+Form_+【mousedown】+(Button+As+Integer,+Shift+As+Integer,+X+As+Single,+Y+As+Single)

　　If+Button=2+Then

　　popupmenu+mnuEdit

　　End+If

　　End+Sub

　　8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。

　　Private+Sub+Form+mousedown+(Button+As+Integer,+Shift+As+Integer,+X+As+Single,+Y+As+Single)

　　If+Button=2+Then

　　【popupmenu】+mnuEdit

　　End+If

　　9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。

　　10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。

本文来源：http://www.longjiam.com/youxiuzuowen/5048.html