《VB上机试题及答案》由会员分享，可在线阅读，更多相关《VB上机试题及答案（19页珍藏版）》请在金锄头文库上搜索。
1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流VB上机试题及答案.精品文档.上机操作练习题1某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。Option explicitDim a(1 to 20) as integer, I as integer, j as integer, t as integerPrivate Sub Form_Load()ShowPrint 原始数组是：RandomizeFor i =
2、 1 To 20 a(i) = Int(Rnd * 90) + 10 Print a(i); If i Mod 10 = 0 Then PrintNext iPrintPrint 现在数组是：For i = 1 To 10 j = 21 - i t = a(i): a(i) = a(j): a(j) = tNext i For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then Print Next iEnd Sub2从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该
3、数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除Private Sub Form_Load()ShowReDim a(9) As Integerm = 1Print 原来数组为：For i = 0 To 9 a(i) = InputBox(请输入第 & m & 个数：) Print a(i); m = m + 1Next iPrintn = InputBox(查找的数是：)i = 0: flag = FalseDo If a(i) = n Then j = i: flag = True For k = j To UBound(a) - 1 a(k)
4、 = a(k + 1) Next k ReDim Preserve a(UBound(a) - 1) i = i - 1End If i = i + 1Loop While (i = UBound(a)If flag = False Then MsgBox n & 不在该数组中ElsePrint 删除 & n & 后的数组是: For i = 0 To UBound(a) Print a(i); Next iEnd IfEnd Sub3数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。注意：要求利用动态数组，能够实现多次插入Priva
5、te Sub Form_Load()Shown = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(请输入要插入的数据:)For i = 1 To n - 1 If m singer(i).fenshu(k) Then t = singer(i).fenshu(j) singer(i).fenshu(j) = singer(i).fenshu(k) singer(i).fenshu(k) = t End If Next NextNextFor i =
6、1 To 4 For j = 2 To 5 singer(i).score = singer(i).score + singer(i).fenshu(j) Next singer(i).pingjun = singer(i).score / 4NextFor i = 1 To 3 For j = i To 4 If singer(i).score max Then max = a(i, j) If a(i, j) min Then min = a(i, j) sum = sum + a(i, j) Next j ave = (sum - max - min) / (n - 2) b(i) =
7、aveNext iFor i = 1 To n - 1 For j = i + 1 To n If b(i) b(j) Then t = b(i): b(i) = b(j): b(j) = t End If Next jNext iPrint 选手的得分由高到低为：For i = 1 To 10 Print b(i);Next iEnd Sub5编写函数求一元二次方程ax2+bx+c=0的解。注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As SingleDim s As Singlea = InputBox(请输入
8、a)b = InputBox(请输入b)c = InputBox(请输入c)s = b 2 - 4 * a * cIf s 47 And Asc(Mid(a, i, 1) 96 And Asc(Mid(a, i, 1) 64 And Asc(Mid(a, i, 1) 91 Then p = p + 1 End IfNextEnd Sub7随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。Option Base 1Private Sub Form_Load()Dim a(5, 5) As IntegerDim s As IntegerFor i
9、 = 1 To 5 For j = 1 To 5 If i = j Or i = 6 - j Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 1000) End If Text1.Text = Text1.Text & & a(i, j) s = s + a(i, j) Next Text1.Text = Text1.Text & vbCrLf & vbCrLfNextList1.AddItem (s)End Sub8编写一个函数，能将字母按下列规律译成密码：AZ azBY by即第1个字母与第26个字母互换，第i个字母与第(26-i+1)个字母互换。在文本框中任意输入一个字符串，调用该函数将密码显示在另一个文本框中。Private Sub Comman
