VB程序设计期末练习题

1、程序练习题编写求数组 a=Array(10,334,86,14,72,53,755,31) 最小值的程序Private Sub Command1_Click()Dim M As Integer, i%a = Array(10, 334, 86, 14, 72, 53, 755, 31)M = a(0)For i = 1 To 7If M >= a(i) ThenM = a(i)End IfNext iText1.Text = MEnd Sub4 + 5 6 * 7 / 8 Mod 9的值,写出计算过程Private Sub Command1_Click()Dim N As Integer

2、N = 4 + 5 6 * 7 / 8 Mod 9Text1.Text = NEnd Sub编写求累加与累乘的函数过程Private Sub Command1_Click()Dim A, B, N As Integer, i%, j%N = InputBox("累加的个数为")For i = 1 To NA = 0For j = 1 To iA = A + jNext jB = B + ANext iText1.Text = BEnd SubPrivate Sub Command2_Click()Dim A, B, N As Integer, i%, j%N = Input

3、Box("累乘的个数为")B = 1For i = 1 To NA = 1For j = 1 To iA = A * jNext jB = B * ANext iText2.Text = BEnd Sub使用CommonDialog控件显示打开 保存 颜色 字体 对话框Private Sub Command1_Click()CommonDialog1.ShowOpenEnd SubPrivate Sub Command2_Click()CommonDialog1.ShowSaveEnd SubPrivate Sub Command3_Click()CommonDialog1

4、.ShowColorEnd SubPrivate Sub Command4_Click()CommonDialog1.ShowFontEnd Sub分别写出 int (Rnd) 和fix(Rnd) 的值Private Sub Command1_Click()Text1.Text = Int(Rnd)Text2.Text = Fix(Rnd)End Sub设计一个水平滚动条HScroll1，表示范围为11000，拖动后其值显示在label1中（说明：先把HScroll1的属性Value的最小值min设置为1，最大值max设置为1000）Private Sub HScroll1_Change()L

5、abel1.Caption = HScroll1.ValueEnd Sub使用对话框函数Msgbox()输出计算球体的体积(V=4/3*R3)。Private Sub Command1_Click()Const pi = 3.1415926Dim R As IntegerR = Val(Text1.Text)V = 4 / 3 * pi * R * R * RMsgBox "球的体积为：" & VEnd Sub使用对话框函数InputBox()输入英文字母，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写，使用对话框函数Msgbox()输出转换结果。P

6、rivate Sub Command1_Click()Dim A As StringA = InputBox("请输入小写字母", "大写字母输入框")B = UCase(A)MsgBox "" & BEnd SubPrivate Sub Command2_Click()Dim C As StringC = InputBox("请输入大写字母", "小写字母输入框")D = LCase(C)MsgBox "" & DEnd Sub使用对话框函数InputBox

7、()分别输入小时、分、秒，化成共有多少秒，然后用对话框函数Msgbox()输出转换结果。Private Sub Command1_Click()Dim A, B, C, D As IntegerA = InputBox("请输入小时", "小时")B = InputBox("请输入分", "分")C = InputBox("请输入秒", "秒")D = A * 3600 + B * 60 + CMsgBox "结果为" & DEnd Sub利用随机

8、函数生成两个4×4的矩阵A和B，要求矩阵的元素值在10，99范围内，在Picture1中显示矩阵A，在Picture2中显示矩阵B，以下三角形式将A数组显示在Picture3中，以上三角形式将数组B显示在Picture4中。（说明：“U”为空格键）Dim a(1 To 4, 1 To 4), b(1 To 4, 1 To 4), i%, j%Private Sub Picture1_Click()For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd() * 90 + 10) Picture1.Print a(i, j); "U&qu

9、ot; Next j Picture1.PrintNext iEnd SubPrivate Sub Picture2_Click()For i = 1 To 4 For j = 1 To 4 b(i, j) = Int(Rnd() * 90 + 10) Picture2.Print b(i, j); "U" Next j Picture2.PrintNext iEnd SubPrivate Sub Picture3_Click()For i = 1 To 4 For j = 1 To i Picture3.Print a(i, j); "U" Next

10、j Picture3.PrintNext iEnd SubPrivate Sub Picture4_Click()For i = 1 To 4 For k = 1 To i - 1 Picture4.Print "UUUU" Next k For j = i To 4 Picture4.Print b(i, j); "U" Next j Picture4.PrintNext iEnd Sub利用选择排序法对给定的n个数进行排序（按升序排）。Dim N As Integer, X() As IntegerPrivate Sub Form_Load()N =

11、 InputBox("排序数的个数为：")ReDim X(N)For i = 1 To N X(i) = InputBox("请输入数字：", "提示信息") List1.AddItem X(i)Next iEnd SubPrivate Sub Command1_Click()Dim i, j, p As IntegerFor i = 1 To N - 1 p = i For j = i + 1 To N If X(j) < X(p) Then p = j End If Next j If p <> i Then T

12、 = X(i) X(i) = X(p) X(p) = T End IfNext iFor i = 1 To N List2.AddItem X(i)Next iEnd SubPrivate Sub Command2_Click()List1.ClearList2.ClearEnd Sub输入一串字符，统计各字母出现的次数（不区分大小写）。Private Sub Command1_Click()Dim a() As StringDim b(1 To 26) As StringDim c(1 To 26) As IntegerDim i, j, k As IntegerFor i = 1 To 26b(i) = Chr(64 + i)c(i) = 0Next iFor j = 1 To 100ReDim a(j) a(j) = Mid(UCase(Text1.Text), j, 1) For i = 1 To 2