VB程序设计习题(2)

next i

3、阅读以下程序： Private sub form_click() Dim k,n,m,as integer

n=6 m=1 k=1 do

while k<=n m=m*2

k=k+1 loop print m end sub

程序运行后，单击窗体，输出结果_______。

4、阅读下面的程序段： For i=1 to 3

For j=1 to i a=a+2 next j next i

执行上面的循环后，a的值为_______。 5、执行下列程序后a的值是_____。 a=0

for b=1 to 10 for c=0 to 2 a=a*c next c

a=a+b next b

练习六

一、选择题

1、以下定义数组或给数组元素赋值的语句中，正确的是（ ） A、Dim a As Variant B、Dim a（10）As Integer A=array(1,2,3,4,5) a=array(1,2,3,4,5)

C、Dim a%(10) D、Dim a(3),b(3) As Integer

a(1)=“ABCDE” a(0)=0: a(1)=1: a(2)=2: b=a

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

Dim arr1(10) as integer ,arr2(10) as integer n=3

for i=1 to 5 arr1(i)=i

arr2(n)=2*n+i next i

print arr2(n); arr1(n) end sub

程序运行后，单击命令按钮，则在窗体上显示的内容是（ ） A、11 3 B、3 11 C、13 3 D、3 13

3、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option base 1

Private sub command1_click() Dim a as variant A=array(1,2,3,4,5)

Sum=0 For i=1 to 5 Sum=sum+a(i)

Next i x=sum/5 for i=1 to 5

if a(i)>x then print a(i) next i end sub

程序运行后，单击命令按钮，则在窗体上显示的内容是（ ） A、1 2 B、1 2 3 C、3 4 5 D、4 5 4、下列程序段的执行结果是（ ） Dim M(10) For k=1 to 10

M(k)=11-k Next k x=6

print M(2+M(x))

A、2 B、3 C、4 D、5

5、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private sub command1_click() Dim array(10,10) AS integer Dim i as integer, I as integer For i=1 to 3

For j=2 to 4 array1(i,j)=i+j next j

next i

text1.text=array1(1,3)+array1(2,3) end sub

程序运行后，单击命令按钮，在文本框中显示的值是（ ） 6、下列程序的运行结果是（ ） Option base 1

Private sub command1_click() Dim a() j=1

for i=1 to 4 s=s+a(i)*j j=j*10 next i print s

end sub

A、1234 B、1111 C、4444 D、4321 7、下列程序的运行结果是（ ） Option base 1

Private sub command1_click() Dim a(10),p(3) as integer 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

A、28 B、37 C、33 D、35 二、填空题

1、下面程序段完成3×4阶矩阵A和矩阵B的相加运算，请在程序空白处填上正确语句。 For i=1 to 3 For j=1 to 4 C(i,j)=______ Next j Next i

2、下列程序运行后的结果为_______。 Private sub command1_click() Const a=6

Dim x(a) as integer For i=1 to a x(i)=i*i next i print x(i) end sub

3、下列程序运行后的结果为_______。 Private sub command1_click() Dim a(10) as integer For i=1 to 10 a(i)=14-i next x=8

print a(2+a(x)) end sub

4、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Sub command1_click() Dim a(5,5)

For i=1 to3 For j=1 to 4 a(i,j)=i*j next j next i

for n=1 to 3

for m=1 to 2 print a(m,n) next m next n

end sub

程序运行后，单击命令按钮，输出的结果是_______。

练习七

一、选择题

1、定义过程的语句为：Sub Suba(x as Single,b as Single)。则正确的调用语句为（A ） A、Suba 10,12 B、Call Suba(“A”,Sin(1.57)) C、Call Suba x,y D、Call Suba(12,10,x)

2、在窗体的通用段声明变量时，不能使用（ D ）关键字。 A、Dim B、Public C、Private D、Static 3、Sub过程与函数过程最主要的区别是（ C ） A、后者可以有参数，而前者不行

B、前者可以用CALL语句直接调用，而后者不行 C、两种过程的参数传递方式不同

D、前者的过程名不能返回值，而后者的过程名可以返回值。

4、要想在过程调用后返回两个值，下列过程定义正确的是（ ） A、Sub Proc（ByVal n,ByVal m） B、Sub Proc（n,ByVal m） C、Sub Proc（n, m） D、Sub Proc（ByVal n, m）

5、若希望在离开某程序后，还能保存该过程中局部变量的值，则应使用（ D ）关键字在该过程中定义局部变量。

A、Dim B、Private C、Public D、Static

6、在一个多窗口程序中，可以在标准模块或某个窗体模块的通用声明处，分别用（ B ）语句定义一个在所有窗体模块都可以引用的变量 IntA。 A、Private IntA As Integer,Public IntA As Integer B、Public IntA As Integer,Private IntA As Integer C、Public IntA As Integer,Public IntA As Integer D、Private IntA As Integer,Private IntA As Integer

7、若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用“Public G As Integer”、“Private G As Intege”和“Dim G As Intege”语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=3596”,则语句给出（ Ｄ ）说明部分定义的变量G赋值。 A、标准模块 B、过程Sub1

C、窗体模块 D、标准模块、窗体模块和过程Sub1

8、要使每一个新建的窗体和模块里面自动出现Options Explicit 关键字，则（ ） A、选择“工具”菜单的“选项”命令，然后选中“要求变量声明”复选框 B、选择“文件”菜单的“选项”命令，然后选中“要求变量声明”复选框 C、选择“工程”菜单的“选项”命令，然后选中“要求变量声明”复选框 D、在“编辑”菜单的“选项”命令里面选中“要求变量声明”复选框 9、在进行参数传递的时候，ByVal和ByRef的含义分别是（ ） A、前者表示按地址，后者表示按数值 B、前者表示按数值，后者表示按地址 C、前者表示按地址，后者也表示按抵制 D、前者表示按数值，后者也表示按数值

10、以下关于Sub过程的说法中，只有（ ）是正确的。 A、一个Sub过程必须有一个Exit Sub语句 B、一个Sub过程必须有一个End Sub语句 C、在Sub过程中可以定义Function过程 D、退出Sub过程也可以定义Function过程 11、Sub过程的定义（ ）

A、一定要有形参 B、不一定要有过程的名称 C、要知名过程是公有的还是私有的，如不知名则默认是公有的 D、一定要指定返回值类型 12、以下叙述中，（ ）是正确的。

A、过程的定义可以嵌套，但过程的调用不能嵌套 B、过程的定义不可以嵌套，但过程的调用可以嵌套 C、过程的定义与调用均不能嵌套 D、过程的定义与调用均可以嵌套

13、关于函数过程叙述正确的是（ ） A、函数名只能被赋值一次

B、没有对函数名赋值，没有函数值返回到调用过程中 C、函数名可以被多次赋值

D、定义函数的类型是制定形参的类型

14、在窗体上有一个命令按钮，编写如下程序： Private Sub Command1_Click() Dim n as long,r as long

n=inputbox(“请输入一个数”) n=clng(n) r=fun(n) print r end sub

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

则该程序运行后，单击命令按钮，在对话框输入100，输出结果为（ ）

A、0 B、100 C、200 D、300 15、有一个按钮事件及一个Sub过程： Private sub command1_click() Ind 2 End sub

Sub ind(a as integer) Static x as integer x=x+a print x; end sub

程序运行后，单击命令按钮三次，输出结果为（ ） A、2 2 2 B、1 2 3 C、2 4 6 D、2 4 8 16、以下是一个按钮事件过程中调用一个函数过程： Private sub command1_click() a=100 b=25

x=gys(a,b)

print x

end sub

function gys(byval x as integer,byval y as integer)as integer do while y<>0

remi=x mod y x=y y=remi

loop gys=x

end function

程序运行的结果是（ ）

A、0 B、25 C、50 D、100 17、有一过程如下： Sub cmax(x,y,max)

max=iif(x>y,x,y) end sub

调用过程如下：

Private sub command1_click()

i=val(inputbox(“请输入第一个数”) j= val(inputbox(“请输入第二个数”) cmax i,j,a print a end sub

程序运行后，分别输入12，56后，结果为（ ） A、12 B、56 C、24 D、112 二、填空题

1、在过程定义中出现的便领命叫做______参数，而在调用过程时传送给过程的______、______或______叫做实际参数。

2、静态变量只能在______中声明和使用。

3、在用Public、private、Dim、Static四中关键字声明的变量中，______声明的变量作用域最大。 4、模块级变量声明使用关键字Dim或______。

5、根据变量的定义位置和所使用的定义语句的不同，VB中的变量可以分为三类，即______、______和全局变量。

6、在过程的定义中，如想使用按值传递的参数传递方式，则必须在相应形参前加上______关键字。 7、在调用过程时，如果不用“Call”命令，则在调用命令中必须省略加在实际参数前后的______。 8、为了能在过程调用过程结束时，仍能保存过程中某个变量的值，则应将该变量声明成______变量。 9、以下程序用来计算1至指定数（由调用程序传入）之间所有奇数的和，将程序补充完整。 Function mult(______)

Dim sum as integer Sum=0

Dim I as integer

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库VB程序设计习题(2)在线全文阅读。