VB编程题练习及答案

1、4. 编写程序生成一个二维数组 A(5, 5), 求两条对角线元素之和Option ExplicitPrivate Sub Command1_Click()Dim a(5, 5) As IntegerDim i As IntegerDim j As IntegerDim x As IntegerDim y As IntegerFor i = 0 To 5For j = 0 To 5a(i,j) = lnt(1OO * Rnd)' 随机产生一个 0-100 的整数 If i = j Then x = x + a(i, j)If i + j = 5 Then y = y + a(i, j)

2、NextNextMsgBox "两条对角线元素之和分别是 "&x&& yEnd Sub5. 编写程序将文本框 Textl 中的大写字母放到文本框 Text2 中Dim n As IntegerFor i = 1 To Len(Textl)n = Asc(Mid(Text1 .Text, i, 1)Text2 = Text2 & llf(n >= 65 And n <= 90, Chr(n),"") Next6. 随机生成 20 个两位正整数存放到 Textl 中，找出其中的偶数并以与找出相反的顺序存 放 到 T

3、ext2 中。Private Sub Form_Load()RandomizeDim a(20), iTextl =""Text2 =""For i = 1 To 20 a(i) = lnt(Rnd*90 + 10) Textl = Textl & a(i) & "" If a(i) Mod 2 = 0 Then Text2 = "" & a(i) & Text2 End IfNext7.End Sub编写程序将窗体上文本框 Textl 中的字符串中的所有大写字母找出，并按逆输出到文

4、本 框 Text2 中。Private Sub Command1_Click()'65 90 大写For t = 1 To Len(Textl.Text)If Asc (Mid (Textl. Text, t, 1) >= 65 And Asc (Mid (Textl. Text, t, 1) <=90 Thenmstr = Mid(Textl. Text, t, 1) & mstrEnd IfNextText2. Text = mstrEnd Sub8. 编写程序输出二维数组中所有非零元素及其所在位置Dim numArr(15, 15) As IntegerPri

5、vate Sub Form_Load()Dim i As IntegerDim j As IntegerFor i = 0 To 15For j = 0 To 15 numArr(i, j) = lnt(Rnd() * 100)NextNextEnd SubPrivate Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 15For j = 0 To 15numArr(i, j)If numArr(i, j) <> 0 Then Listl .Additem i &" 行 "

6、& j & " 列 =''&' 出口样式你自己确定，就是说输出到什么地方或者变量，你自己决定 NextNextEnd Sub9、 编程序求二维数组每行元素的和。Dim n(3, 2) As IntegerDim a As Integer, b As Integer a = 3，行b = 2例For i = 0 To aForj = 0 To b Sum = n(i, j)NextPrint SumNext11 . 是采用 “冒泡排序 ”法从键盘上输入 10 个整数，将 10 个数从小到大排序 int main()int i,j,t,a1

7、O;printf("Please input 10 integers:n");for(i=0;i<10;i+) scanf("%d",&ai);for(i=0;i<9;i+) /* 冒泡法排序 */ for(j=0;j<10-i-1 ;j+)if(aj>aj+1)t=aj;/* 交换 ai和 aj */ aj=aj+1;aj+l=t;13. 用程序找出 50 以内所有能构成直角三角形的整数组Private Sub Command1_Click()For a=1 To 50For b=a To 50 c=Sqr(a A2+b

8、 A2)If And c=lnt(c) Then Print a;b;cNext bNext aEnd Sub15. 单击窗体产生 10 个 2 位随机正整数，计算并显示出最大的数据和其在数组中的位置 Private Sub Form_Click()Dim i, a(10), b, maxFor i = 1 To 10a(i) = lnt(Rnd *90) + 10If max < a(i) Then max = a(i): b = i Print a(i);NextPrintPrint"最大数：maxPrint"在数组中的位置:"bEnd Sub3. 编写

9、一个程序，利用随机函数生成15个80-99之间的随机整数，输岀其中的最大值与小值。private sub comma nd1_click()for i=1 to 15a=i nt(R nd*20)+80if i=1 the n max=a: min=aif max<a the n max=aif min>a the n min=aprint a;if i=7 or i=15 the n printn extprint"最大值："；maxprint "最小值："minend sub4. 编写程序生成一个二维数组A(5, 5),求两条对角线元素之

10、和Option ExplicitPrivate Sub Comma nd1_Click()Dim a(5, 5) As In tegerDim i As In tegerDim j As In tegerDim x As In tegerDim y As In tegerFor i = 0 To 5Forj = 0 To 5a(i, j) = Int(100 * Rnd)'随机产生一个 0100的整数If i = j The n x = x + a(i, j)If i + j = 5 The n y = y + a(i, j)NextNextMsgBox "两条对角线元素之和

11、分别是"&x&& vEnd Sub5. 编写程序将文本框Textl中的大写字母放到文本框Text2中。Dim n As In tegerFor i = 1 To Len( Textl)n = Asc(Mid(Text1 .Text, i, 1)Text2 = Text2 & llf( n >= 65 And n <= 90, Chr( n),"")Next6. 随机生成 20 个两位正整数存放到 Textl 中，找出其中的偶数并以与找出相反的顺序存放 到 Text2 中 oPrivate Sub Form_Load()

12、RandomizeDim a(20), iTextl =""Text2 =""For i = 1 To 20a(i) = lnt(Rnd *90 + 10)Textl = Textl & a(i) & ""If a(i) Mod 2 = 0 ThenText2 = "" & a(i) & Text2End IfNextEnd Sub7. 编写程序将窗体上文本框 Textl 中的字符串中的所有大写字母找出，并按逆输出到文本 Text2 中。Private Sub Command1_Cl

13、ick()'65 90 大写For t = 1 To Len(Textl.Text)If Asc (Mid (Textl. Text, t, 1) >= 65 And Asc (Mid (Textl. Text, t, 1) <=90 Thenmstr = Mid(Textl. Text, t, 1) & mstrEnd IfNextText2. Text = mstrEnd Sub8. 编写程序输出二维数组中所有非零元素及其所在位置Dim numArr(15, 15) As IntegerPrivate Sub Form_Load()Dim i As Intege

14、rDim j As IntegerFor i = 0 To 15For j = 0 To 15 numArr(i, j) = lnt(Rnd() * 100)NextNextEnd SubPrivate Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 15For j = 0 To 15numArr(i, j)If numArr(i, j) <> 0 Then Listl .Additem i &" 行 "& j & " 列 =''&

15、amp;' 出口样式你自己确定，就是说输出到什么地方或者变量，你自己决定 NextNextEnd Sub 9、编程序求二维数组每行元素的和Dim n(3, 2) As IntegerDim a As Integer, b As Integer a = 3，行b = 2例For i = 0 To aForj = 0 To bSum = n(i, j)NextPrint SumNext11 , 是采用 “冒泡排序 ”法从键盘上输入 10个整数，将 10 个数从小到大排序 int main()int i,j,t,a1O; printf("Please input 10 intege

16、rs:n"); for(i=0;i<10;i+) scanf("%d",&ai);for(i=0;i<9;i+) /* 冒泡法排序 */ for(j=0;j<10-i-1 ;j+) if(aj>aj+1)t=aj;/* 交换 ai和 aj */ aj=aj+1;aj+l=t;13. 用程序找出 50 以内所有能构成直角三角形的整数组Private Sub Command1_Click()For a=1 To 50For b=a To 50 c=Sqr(a A2+b A2)If And c=lnt(c) Then Print a;b;cNext bNext