VB编程题练习及答案.docVIP

4.编写程序生成一个二维数组A(5, 5)，求两条对角线元素之和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 For j = 0 To 5 a(i, j) = Int(100 * 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 两条对角线元素之和分别是 x , y End Sub编写程序将文本框Text1中的大写字母放到文本框Text2中。Dim n As Integer For i = 1 To Len(Text1) n = Asc(Mid(Text1.Text, i, 1)) Text2 = Text2 IIf(n = 65 And n = 90, Chr(n), ) Next 6.随机生成20个两位正整数存放到Text1中，找出其中的偶数并以与找出相反的顺序存放到Text2中。Private Sub Form_Load() Randomize Dim a(20), i Text1 = Text2 = For i = 1 To 20 a(i) = Int(Rnd * 90 + 10) Text1 = Text1 a(i) If a(i) Mod 2 = 0 Then Text2 = a(i) Text2 End If Next End Sub 7.编写程序将窗体上文本框Text1中的字符串中的所有大写字母找出，并按逆输出到文本框Text2中。? 8.编写程序输出二维数组中所有非零元素及其所在位置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) = Int(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 List1.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 For j = 0 To b Sum = n(i, j) Next Print Sum Next 是采用“冒泡排序”法从键盘上输入10个整数，将10个数从小到大排序int main() { int i,j,t,a[10]; printf(Please input 10 integers:\n); for(i=0;i10;i++) scanf(%d,a[i]); for(i=0;i9;i++) /* 冒泡法排序 */ for(j=0;j10-i-1;j++) if(a[j]a[j+1]) {t=a[j];/* 交换a[i]和a[j] */ a[j]=a[j+1]; a[j+1]=t; 程序找出50以内所有能构成直角三角形的整数组Private Sub Command1_Click() For a=1 To 50 For b=a To 50 c=Sqr(a^2+b^2) If ____ And c=Int(c) Then Print a;b;c Next b Next a End Sub 15.单击窗体产生10个2位随机正整数，计算并显示出最大的数据和其在数组中的位置 Pr