VB编程题练习及答案.docxVIP

编写程序生成一个二维数组A(5, 5),求两条对角线元素Z和 Option Explicit Private Sub Command1_Click() Dim a(5, 5) As Integer Dim i As Integer Dim j As Integer Dim x As Integer Dim y As Integer For i = 0 To 5 Forj = 0 To 5 a(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) Next Next MsgBox n两条对角线元素之和分别是” x 丁 y End Sub 编写程序将文本框Textl屮的大写字母放到文本框Text2中。 Dim n As Integer For i = 1 To Len(Textl) n = Asc(Mid(Text1.Text, i, 1)) Text2 = Text2 llf(n = 65 And n = 90, Chr(n), ””) Next 随机生成20个两位正整数存放到Textl中，找出其中的偶数并以与找出相反的顺序存放 到Text2中° Private Sub Form_Load() Ran domize Dim a(20), i Textl = ”” Text2 = ”” For i = 1 To 20 a(i) = lnt(Rnd *90 + 10) Textl = Textl a(i) ”H If a(i) Mod 2 = 0 Then Text2 = n H a(i) Text2 End If Next Encl Sub 编写程序将窗体上文本框Textl中的字符串中的所有大写字母找出，并按逆输出到文本 框Text2中。 Private Sub Commandl_Click() 65--90 大写 For t = 1 To Lcn(Textl. Text) If Asc(Mid(Textl. Text, t, 1)) 二 65 And Asc(Mid(Textl. Text, t, 1)) = 90 Then mstr 二 Mid(Textl. Text, t, 1) mstr End Tf Next Text2.Text = mstr End Sub 编写程序输出二维数组中所有非零元素及其所在位置 Dim numArr(15, 15) As Integer Private Sub Form_Load() Dim i As Integer Dim j As Integer For i = 0 To 15 For j = 0 To 15 numArr(i, j) = lnt(Rnd() * 100) Next Next End Sub Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 0 To 15 For j = 0 To 15 If numArr(i, j) 0 Then Listl .AddItem i ”行” j 咧』 numArr(i, j) 岀口样式你自己确定，就是说输出到什么地方或者变量，你自己决定 Next Next End Sub 9、 编程序求二维数组每行元素的和。 Dim n(3, 2) As Integer Dim a As Integer, b As Integer a = 3 ，行 b = 2 列 For i = 0 To a Forj = 0 To b Sum = n(i, j) Next Print Sum Next 11 ?是采用“冒泡排序”法从键盘上输入10个整数，将10个数从小到大排序 int main() { int i,j,t,a[10]; printfCPlease input 10 integers:\nH); for(i=0;i10;i++) scanf(n%dn5a[i]); for(i=0;i9;i++) /* 冒泡法排序 */ for(j=0;j10-i-1;j++) if(a[j]a[j+1]) {t=aOl；/* 交换 a[i]和 a[j] 7 aD]=a[j+1]; a[j+l]二 t; 13.用程序找出50以内所有能构成直角三角形的整数组 Private Sub Command1_Click() For a=1 To 50 For b=a To 50 c=Sqr(aA2+bA2) If And c=lnt(c) Then Print a;b;c Next b Next a End Sub