vb实验教程答案.docx

vb实验教程答案.docx

《vb实验教程答案.docx》由会员分享，可在线阅读，更多相关《vb实验教程答案.docx（12页珍藏版）》请在冰豆网上搜索。

vb实验教程答案

第一章

答案：

一、单项选择题

1.B2.C3.D4.D5.D6.D7.D8.C9.B10.B11.A12.D13.B14.C

二、判断题

1.T2.T3.F4.F5.F6.T7.T8.T9.T10.T11.T

第二章

一、单项选择题

1.B2.D3.A4.D5.B6.A7.D8.D9.D10.A

11.A12.A13.C14.C15.A16.C17.A18.D19.A20.D

21.B22.C23.B24.A25.B26.A27.C28.D29.D30.B

31.C32.D33.B34.C35.C36.C37.C38.D39.C40.A

41.D

二、判断题

1.True2.True3.False4.False5.False6.False7.False

第三章

一、单项选择题

1.A2.D3.D4.B5.B6.D7.C8.D9.B10.B11.D12.D13.C14.D15.A

16.C17.B

二、判断题

1.T2.F3.T4.T5.F6.F7.F8.F9.F10.F

11.T12.F13.F14.T15.F16.T17.T18.F.

第四章

一、单项选择题

1.D2.A3.C4.C5.B6.C7.B8.B9.C10.B11.A12.A13.B14.C15.C16.D17.A18.D19.B20.A

21.D22.B23.A24.D25.D26.B27.D28.A29.D30.A31.D

二、判断题

1.F2.T3.F4.F5.T6.F7.T

三、操作题

1.参考代码：

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger,kAsInteger

DimsumAsInteger

Fori=2To10000

sum=0

Forj=1Toi/2

k=iModj

If0=kThen

sum=sum+j

EndIf

Nextj

Ifi=sumThen

Printi

EndIf

Nexti

EndSub

2.参考代码：

PrivateSubCommand1_Click（）

Dimn%,i%

n=InputBox（"请输入天数：

"）

x=1

Fori=n-1To1Step-1

x=（x+1）*2

Next

Printx

EndSub

第五章

一、单项选择题：

1.B2.C3.C4.C5.D

6.B7.A8.D9.D10.D

11.D12.A13.D14.A15.A

16.C17.B18.D19.C20.B

21.A22.B23.B24.C25.B

26.B27.A28.A29.D30.A

二、多项选择题

1.BCD2.ABD3.ABC4.ABC5.BCD

三、判断题

1.（F）2.（T）3.（T）4.（T）5.（T）

6.（F）7.（F）8.（F）9.（F）10.（T）

11.（F）12.（F）13.（T）14.（F）15.（F）

四、填空题

1.数学日期时间字符串

2.Str（x）Val（x）Asc（x）

3.Sin（30*3.14/180）

4.0

5.2

6.16

7.Right（x,5）

8.123?

123?

12?

0

9.Mid（S,6,4）

10.Int（RndText1.Text*900）+100

Mid（Text1.Text,3,1）&Mid（Text1.Text,2,1）&Mid（Text1.Text,1,1）或Reverse（Text1.Text）

五、操作题

1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n（a个n）的和，其中a和n分别由随机函数产生的1～9之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。

PrivateSubForm_Click（）

DimaAsInteger,nAsInteger,sAsLong,snAsLong,iAsInteger

Cls

Randomize

a=Int（Rnd*9+1）'产生1~9之间的整数

n=Int（Rnd*9+1）'产生1~9之间的整数

Print"a=";a,"n=";n

Fori=1Ton

s=s+a*10^（i-1）

sn=sn+s

Printsn'输出前i项之和，输出的最后一个数据为所求

Nexti

EndSub

2．利用shall函数调用“写完板”程序。

界面设计如下图：

OptionExplicit

PrivateSubCommand1_Click（）'打开写字板

Shell"c:

\winnt\system32\write.exe",vbNormalFocus'打开写字板正常程序大小窗口

EndSub

第6章数组

一、单项选择题

1．B2.B3.D4.C5.B

6.C7.D8.D9.D10.A

11.B12.B13.B14.A15.C16.A17.C18.A19.C20.D

二、多选题

1．ABC2.BCD3.ACD4.ABD5.BCD

三、判断题

1.（F）2.（F）3.（T）4.（F）5.（F）

6.（T）7.（T）8.（F）9.（T）10.（T）

四、填空题

1.字符型2.ReDim3.24.45.二公司6.1234

7.第一次第二次第三次

111213

111213

111213

8.169.310.33

五、操作题：

1．编写程序，建立并输出一个10*10矩阵，该矩阵两条对角线元素为1，其它元素均为0。

OptionBase1

OptionExplicit

PrivateSubForm_Load（）

Show

Dima（10,10）AsInteger

DimxAsInteger,yAsInteger

Forx=1To10

Fory=1To10

a（x,y）=0

Ifx=yOrx+y=11Then

a（x,y）=1

EndIf

Printa（x,y）;Spc

（2）;

Nexty

Print

Nextx

EndSub

2．产生随机函数二维数组a（1to10,1to10）赋予0到99之间的整数，求出每行a的最大值并把这些最大数放到一维数组b中并用比较交换法降序排列输出各值。

OptionExplicit

PrivateSubForm_Click（）

Dima%（1To10,1To10）,b%（1To10）,i%,j%,max%,t%

Fori=1To10

Forj=1To10

a（i,j）=Int（Rnd*99+1）

PrintTab（5*j）;a（i,j）;

Nextj

Print

Nexti

Print"各行最大值为：

"

Fori=1To10

max=a（i,1）

Forj=1To10

Ifa（i,j）>maxThenmax=a（i,j）

Nextj

b（i）=max

Printb（i）

Nexti

Print

Print"对各行最大值降序排列后";

Fori=1To9

Forj=i+1To10

Ifb（j）>b（i）Thent=b（i）:

b（i）=b（j）:

b（j）=t

Nextj

Printb（10）

Nexti

EndSub

3．输入一系统字符串，并按递减顺序排列。

OptionBase1

OptionExplicit

Dimn%,i%,j%,pAsInteger

Dima（）AsString

---------------------------------------------------------

PrivateSubCommand1_Click（）

ReDima（n）

Fori=1Ton

a（i）=InputBox（"输入原字符串给数组元素"&"a（"&i&"）"）

Nexti

Fori=1Ton

List1.AddItema（i）

Nexti

EndSub

-----------------------------------------------------------

PrivateSubCommand2_Click（）

DimtAsString

Fori=1Ton-1

p=i

Forj=i+1Ton

Ifa（j）>a（p）Thenp=j

Nextj

t=a（i）:

a（i）=a（p）:

a（p）=t

Nexti

Fori=1Ton

List2.AddItema（i）

Nexti

EndSub

-----------------------------------------------------------

PrivateSubCommand3_Click（）

List1.Clear

List2.Clear

EndSub

------------------------------------------------------------

PrivateSubForm_Load（）

n=Val（InputBox（"请输入要排序的字符串的个数",,0））

EndSub

第七章

一、单项选择题

1.B2.A3.D4.A5.B6.B7.C8.D9.B10.B

11.A12.C13.B14.D15.D16.B17.C18.D19.A20.B

21.C22.C23.A24.B25.A26.A27.B

二、判断题

1.T2.F3.F4.T5.F6.F7.F8.T9.F10.T

11.F12.F13.F14.T15.F16.T17.F18.F19.F20.T

21.T22.F23.F24.F25.T26.T27.F28.F

第八章

一、单项选择题

1.C2.B3.C4.B5.B6.D7.B8.C9.B10.B11.D12.C13.A14.B15.D16.D17.D18.C

二、判断题

1.T2.F3.F4.T5.F6.T7.T8F.9.T10.F

11.T12.F13.T14.T15.T16.T17.T18.F19.T20.T

21.F22.T

第九章

一、单项选择题

1.D2.C3.B4.A5.D6.B7.A8.B9.B10.C11.A12.D

二、1.T2.T3.F4.T5.F

第十章

一、单项选择题

1.A2.A3.C4.B5.B6.D7.A8.D9.C10.C11.A12.B13.B14.C15.A16.D

二、判断题

1.T2.F3.F4.T5.T6.F7.T8.T

三、填空题

1．Caption,Name,Index,Checked,Enabled,Visible

2．标题－

3．&

4．向下移一个等级

5．PopupMenu

6．MicrosoftWindowsCommonControls6.0ToolBar

7．Align

8．ImageList

9.vbModel或1

第十一章

一、单项选择题

1.A2.B3.C4.B5.D6.B7.A8.B9.C10.B11.B12.C13.D14.C15.C16.D17.B18.D19.C20.B

21.C22.C23.A24.D25.B26.B27.A28.D29.D30.B31.C32.A33.D34.B35.C

二、判断题

1.T2.F3.T4.T5.T6.T7.F8.T9.T10.T11.F12.F13.T14.F15.T

三、填空题

1.Input

2.NotEOF

（1）

3.IfInputdata=“$”then

4.Output

5.Print#1,Count

第十二章

参考答案

　　一、单选题

1

2

3

4

5

6

7

8

9

10

D

C

C

D

A

C

D

B

A

B

　　二、填空题

【1】

不会

【2】

ScaleHeight、ScaleWidth

【3】

（300，-150）

【4】

右

【5】

默认

【6】

AutoSize

【7】

B

【8】

0~2π

【9】

DrawStyle、DrawWidth

【10】

Shape

第十三章

一、单项选择题

1.B2.A3.C4.A5.D6.D7.A8.C9.A10.D11.D12.C13.D14.B15.C16.C17.D18.B19.A20.A

21.C22.C23.A24.D25.D26.D27.C28.A29.A30.B31.B32.A33.A

二、判断题

1.F2.T3.T4.F5.T6.F7.T8.F9.F10.T11.T