vb大一期末考试试题vb11Word文档格式.docx

vb大一期末考试试题vb11Word文档格式.docx

《vb大一期末考试试题vb11Word文档格式.docx》由会员分享，可在线阅读，更多相关《vb大一期末考试试题vb11Word文档格式.docx（10页珍藏版）》请在冰豆网上搜索。

9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。

A．NameB．ListIndexC．ListCountD．Text

10．下列代码的运行结果为（B）。

PrivateSubcommand1_click（）

Dimm（10）

Fork=1To10

m（k）=11-k

Nextk

x=5

Printm（2+m（x））

EndSub

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

三、将下列数学表达式转换为VB表达式。

（6分）

1．a2+2ab+b2______a^2+2*a*b+b^2____________________

3．8exln10____8*exp（x）*log（10）

______________________

4．2sin（450）cos（450）__________2*sin（3.1416/4）*cos（3.1416/4）_____________________

四、判断题，正确打“√”，错误打“×

”（10分）

1．在VB中，控件的事件只能通过用户的操作触发。

（N）

2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。

（Y）

3．保存工程时，窗体文件和工程文件的文件名不能相同。

4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。

5．同一过程中，数组和简单变量可以同名。

6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。

（Y）

7．代码ConstNumber1=15：

Number1=10合法。

（N）

8．允许将块If-Then语句结构中的所有语句都写在一行上（N）

9．定义数组语句Dima（b）AsInteger是正确的（N）

10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。

五、根据题意，将下列程序补充完整。

（16分）

1．产生20个[10，100]之间的随机整数，每行输出10个数据。

PrivateSubcommand1_click（）

Dima（1To20）AsInteger

Randomize

i=0

DoWhilei<

20

i=i+1

a（i）=（int（rnd*91）+10）

If（I<

10）Then

Printa（i）;

EndIf

Ifi=10ThenPrinta（i）

Ifi>

10ThenPrinta（i）;

Loop

2．打印九九乘法表

Fori=1To9

Forj=1To9

Print（i*j）

Nextj

Print

（nexti）

3．判断一个数是否素数

x=InputBox（"

请输入一个整数"

）

flag=1

Fori=2To（int（sqr（x））或者x-1）

IfxModi=0Then

flag=0

Nexti

If（flag=1）ThenPrintx;

"

是素数"

ElsePrintx;

不是素数"

4．利用数组输出Fibonacci数列的前15项。

该数列的第1项和第2项为1，其余各项均为其前两项之和。

PrivateSubCommand1_Click（）

（dimf（15）asinteger）

f

（1）=1:

f

（2）=1

List1.AddItemf

（1）:

List1.AddItemf

（2）

Fori=3To15

f（i）=（f（I-1）+f（I-2））

List1.AddItemf（i）

六、写出下面程序的输出结果。

（每题3分，共18分）

1．PrivateSubcommand1_click（）

enterx"

）'

x的输入值为-8

SelectCaseSgn（x）+2

Case1

Print"

y="

;

x^2+1

Case2

x-4

Case3

x^3+100

EndSelect

1、y=65

2．PrivateSubcommand1_click（）

Dima,b,c,d,eAsString

a="

ZhengZhou"

b="

ZhongYuanGongXueYuan"

c=a+"

+b

d=Left（a,1）+Mid（a,7,1）

e=Left（b,1）+Mid（b,12,1）

Printc

Printd;

e

EndSub

2、ZhengZhouZhongYuanGongXueYuan2分

ZZZG2分

3．设有Sub过程：

PrivateSubp1（xAsInteger,ByValyAsInteger）

x=4：

y=5：

z=6

则如下程序段的运行结果是:

DimxAsInteger,yAsInteger

x=1:

y=2:

z=3

Printx,y,z

Callp1（x,y）

3．123

423

4．PrivateSubcommand1_click（）

k=0

Fori=1To3

k=k+1

a=i*i*k

Printa;

4．1827

5．PrivateSubcommand1_click（）

Dima（5,5）AsInteger

Fori=1To5

Forj=1To5

a（i,j）=i*2+j

Printa（i,j）;

5．34567

56789

7891011

910111213

1112131415

6．设有Function过程:

PrivateFunctionf1（b,a）

a=a*a:

b=b*b

f1=a-b

EndFunction

则如下程序段的运行结果是什么？

a=4:

b=3

a=f1（a,b）

Printa

6．-7

七．编程题（共30分）

注意：

艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；

其他学生做第1、2、3、4小题。

1．给出一个百分制的成绩，要求输出成绩的相应等级。

（7分）

90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。

2．求n!

n由键盘输入。

3．产生20个[0，99]之间的随机整数，并按从小到大的顺序输出。

（8分）

4．产生并输出一个6×

6的二维数组A：

（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。

（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。

5．输出1+2+……+100的和，并求出1～100之间能被17整除的数据的个数（8分）

6．从键盘输入10个数，求出其中的最大数，最小数和平均值。

七、编写程序

1.privatesubcommand1_click（）

dimxasinteger,gradeasstring1分

x=text1.text1分

selectcasex4分

case90to100

grade=”A”

case80to89

grade=”B”

case70to79

grade=”C”

case60to69

grade=”D”

caseis<

60

grade=”E”

caseelse

msgbox“请重新输入”

endselect

print“该学生成绩为”+grade1分

endsub

2．PrivateSubcommand1_click（）

Dimnasinteger,faslong1分

n=text1.text1分

f=1

forI=1ton3分

f=f*I

nextI

text2.text=f2分

3．PrivateSubCommand1_Click（）

Dima（1To20）AsInteger'

1分

Fori=1To202分

a（i）=Int（Rnd*100）

Next

Fori=1To193分

Forj=i+1To20

Ifa（i）>

a（j）Then

t=a（i）:

a（i）=a（j）:

a（j）=t

P