VB程序設(shè)計期末練習(xí)題

1、程序練習(xí)題編寫求數(shù)組 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編寫求累加與累乘的函數(shù)過程Private Sub Command1_Click()Dim A, B, N As Integer, i%, j%N = InputBox("累加的個數(shù)為")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("累乘的個數(shù)為")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設(shè)計一個水平滾動條HScroll1，表示范圍為11000，拖動后其值顯示在label1中（說明：先把HScroll1的屬性Value的最小值min設(shè)置為1，最大值max設(shè)置為1000）Private Sub HScroll1_Change()L

5、abel1.Caption = HScroll1.ValueEnd Sub使用對話框函數(shù)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使用對話框函數(shù)InputBox()輸入英文字母，按“轉(zhuǎn)大寫”按鈕，文本變?yōu)榇髮懀础稗D(zhuǎn)小寫”按鈕，文本變?yōu)樾?，使用對話框函?shù)Msgbox()輸出轉(zhuǎn)換結(jié)果。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使用對話框函數(shù)InputBox

7、()分別輸入小時、分、秒，化成共有多少秒，然后用對話框函數(shù)Msgbox()輸出轉(zhuǎn)換結(jié)果。Private Sub Command1_Click()Dim A, B, C, D As IntegerA = InputBox("請輸入小時", "小時")B = InputBox("請輸入分", "分")C = InputBox("請輸入秒", "秒")D = A * 3600 + B * 60 + CMsgBox "結(jié)果為" & DEnd Sub利用隨機

8、函數(shù)生成兩個4×4的矩陣A和B，要求矩陣的元素值在10，99范圍內(nèi)，在Picture1中顯示矩陣A，在Picture2中顯示矩陣B，以下三角形式將A數(shù)組顯示在Picture3中，以上三角形式將數(shù)組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個數(shù)進行排序（按升序排）。Dim N As Integer, X() As IntegerPrivate Sub Form_Load()N =

11、 InputBox("排序數(shù)的個數(shù)為：")ReDim X(N)For i = 1 To N X(i) = InputBox("請輸入數(shù)字：", "提示信息") 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輸入一串字符，統(tǒng)計各字母出現(xiàn)的次數(shù)（不區(qū)分大小寫）。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