数组vb程序设计习题及答案第6章数组

VB程序设计习题及答案第6章数组

第6章 数 组

6  试将下面的算术乘法九九表存入数组中,并在窗口显示出来

 2 3 4  6 7  

 4 6 8 0 2 1 16  

3 6  2 1  18 21 4 7

 8 2 1  20 2 2   6

   1  2 25   3 40 4

6 12  8 24 30 36   48  

7   2 2   4 49 56 63

8 16 24 3     6 64 2

9 18 7 36 45 4 3 2 8 

【参考答案】

程序代码设计

Privt S u orm_lik()

Dma    9) s Inte r

Fr i1  9

o j1To 9a(  ,  ) =   j

Nextj

et i

or  1 o 9

Fo  =1  

Prin Forma (a i j @ 

 t j

P   

Net i

End Su

程序运行结果如图—1所示:

6 2 编写程序,输出上题乘法九九表对角线上的数。 两条对角线的数分两组输出)。

【参考答案】

程序代码设计

VB程序设计习题及答案第6章数组

Privat ub Form_   c()

 a 9 9 s n ger

Fo i =1 To9

  j 1 To9a i j =  *j

extj

Net i

For i= 1 To 

For j=  o 

If  =  The Print Ta 5    ;  i  )

 tj

N t 

For i=1To9

Fo j=1 To 9

If i+ j= 10 The   int ab   *j ;  i,  )

Net 

Next i

图6-2程序运行结果

End   

程序运行结果如图6—2所示

6。  编写程序输出上题乘法九九表中任意一列和任意一行上的数。【参考答案】

程序代码设计

Privat Sub For_Click()

D im(9, 9 A nteer

For i= 1 o 9

o j 1 o 9a    j) =   j

x j

Nxt 

 =V  (InputBo x ”输入行号 " )mVa IptBox  "输入列号  )

VB程序设计习题及答案第6章数组

or i 1T 9

r ntTb(5  i a  i

N t 

rin

For j=1To9

P    Tab( *m a   )

Nx j

End u

运行结果

图6-3程序运行结果

如输入行号为: 输入列号为 

则程序运行结果如图6所示

6。 4 编写程序交换上题乘法九九表中任意两列上对应的数.【参考答案】

程序代码设计

Pr  ate S  Form_C  c()

D im (9 ) A I  e ge 

or i=1 o 

o j=1 To9a i, j = i*j

Nxt 

Next i

 =l InptB  ”输入要交换的第一个列号 ”)

=Val( nutBo  "输入要交换的第二个列号:”)

F     To9

Fr  1 o 9

Ifj=  Then

rit    * j a i m

lsI   mhen

Print Tab 5 j ;a(  , n

  s

P int Tab 5   );a i, j

Ed If

VB程序设计习题及答案第6章数组

Nex 

P nt

Next i

End Su

运行结果

图6-4程序运行结果

如将第1列与第列交换,则程序运行结果如图6—所示

6. 编写程序交换上题乘法九九表中任意两行上对应的数。【参考答案】

程序代码设计

Privte Sub Form_C lick  

Dim a 9,   As In ger

For  =  T 

Fr  = 1T 9

   , j =  *j

Nextj

Net 

 V  In tBox(”输入要交换的第一个行号 ” )m=Va (In  Bx  "输入要交换的第二个行号 ”ri=1T 

F  j   9

If i n Thn

Pr nt Tab 5 *j); a(m  

E seIf i= The

r ntTab 5*  )   j

lse

P r int ab 5*  );a i j);

nd I

Next 

P nt

ex 

n Sb

运行结果

如将第1行与第5行交换则程序运行结果如图65所示

VB程序设计习题及答案第6章数组

图6-5程序运行结果

 。 6 矩阵转置,即将矩阵的行、列互换,如下所示:

【参考答案】

程序代码设计

Pria e Sub Fom_Cl  ck(

ima(3 3 As In eer b 3 3 s Iteg For i = 1  3

o j= 1T 3a(i j =a In tBo ”输入a数组  

Nextj

Nex 

r  =1To3

Fr  =1 To3b(j i =  i,  

N tj

ex i

r int”输出数组:”

For i= 1 o3

Fr j =  To3

ri  b( *j a i j ;

   

P int

N t 

P int”输出数组: 

Fori=1To 3

For j  o 3

r n Tab(  j ; (  ,  )

ex j

P in

VB程序设计习题及答案第6章数组

N t i

End ub

程序运行结果如图6-6所示:

6。 7 利用一维数组,统计一个班学生成绩059,0~69 70~79 08,

999和00各分数段的人数.

【参考答案】

程序代码设计

Pivate Sub F Clik )

i a 5 T 0)s Intege

For i= 1 To  s = Val InpuBox ”输入一个学生的成绩:”))

If s >60 And  =10 Tenk=s \ 10a k  a k) + 

a(5 =  5) 

En If

ext i

  int” 分~9分:" a 5)

Pri  ”60分6分 ”;a(6

Prin ”70分79分 ”;  ( 

P r int "80分9分:" a( 

  it”90分99分:  ; a 9

VB程序设计习题及答案第6章数组

Pint " 10分 ” a  0

d Sub

程序运行结果如图6—所示:

 。 8 利用随机函数,编写模拟抛硬币的程序。设共投币2 次分别显示正面和反面落地的情况正面用“  "表示,反面用“  "表示计算“两个正面”、 “两个反面"和“一正一反” 3种情况各出现的次数,并统计正面和反面落地的概率。

【参考答案】

说明:

定义一个二维数组 1  1),其中

(0,  —-统计“两个反面"的次数c  1  1  -—统计“两个正面”的次数c(1,  和c   ,1 ——统计“一正一反"和“一反一正"的次数

程序代码设计

P i te ub Form_Click  

im c  1   )As Iteger  As n eer

 m zAs Itge   fs In eern=Va l  npto x("n=" ”输入投币次数" )

  mi e Tier

  in ”硬币落地模拟情形 

or  =  T n

If Rd 〉 0. Thn

Prit ”Z";

    1

l  

P r int ” F” ;f= f+1

End I

I  z f)Mod 0=0 T   Printi= n 2  Rndj= nt 2* Rnd)c i j =c   , j 1

x 

Prit

P r nt 统计结果”

P r nt "正面落地的次数为 ";   概率为 " z  n

P r int "反面落地的次数为:” f ”概率为:  ;f  n

r int ”两个正面落地的次数为  ,   1   

P r int ”两个反面落地的次数为:    (  0

P n ”一正一反落地的次数为:” ,c   , 1     1,0)

End Sub

程序运行结果如图所示:

VB程序设计习题及答案第6章数组

6。  利用随机函数分别产生两个行4列的矩阵,实现矩阵减法运算.【参考答案】

程序代码设计

Priva e Sub Form_  ick()

Randm e Timr

i a 1 To   1 To 4 As nteer, b(1 o   1 o 4 Inte ger

or i  o 5

Forj= 1 To 4

 i j)=Int    9 +1b i j =It nd * 9+  )

Nx j

Next i

Prin ”矩阵为 "

Fo i=1 To 5

F  j=  To4

rint a i, j);

VB程序设计习题及答案第6章数组

Ne  j

r int

N t i

rint  矩阵为 

Fr  =1T 5

Frj   o 

Print b i,   ;

Nxt j

Prit

Net i

  n A矩阵—B矩阵结果为 ”

Fri= 1 T 5

Forj=1 T 4

r int  i   -b i j

Nex 

  int

ex i

Ed ub

程序运行结果如图6—所示.

  10有学生成绩表如下所示:

姓名 数学 物理 化学 英语

张 三   87 3 95

李 四  1   93 7

王 五 83 77 6 8

赵 六 5 80 73  

孙 七 7 9 86 5

试编写程序,将上述成绩输入数组并对学生成绩进行检索。只要键入一个学生姓名就可以显示出他的成绩.

要求:

(   使用动态数组输入的人数可以根据情况决定.

2 当要检索的学生名不在成绩表中时要能给出提示信息。

(3 每次检索后,询问是否继续检索并能根据输入信息决定是否结束程序运行。

【参考答案】

程序代码设计

im nm( As Str ng  1 )As nteger a2 ) A  tger

D i 3()  I ntee, 4( A s n gr

Privat S u orm_C  ck()n  a InpuBox  "输入学生人数:”

ReDm nm a n a n), 3 ) a4 n

   = 1  na(i)= InptBox  输入学生姓名  )a 1(i = V l IputBx  "输入数学成绩  )