1、中国石油大学华东VB练习题大一下中国石油大学华东VB练习题（大一下）一、时钟二、滚动条三、列表框四、复选框五、单选框六、组合框七、多分枝选择八、定义函数九、TXT十、数组一、时钟程序运行后，每隔2秒命令按钮Command1向右移动100个单位。Private Sub Form_Load()Timer1.Interval = 2End SubPrivate Sub timer1_timer()Call mymoveEnd SubSub mymove() Command1.Left = Command1.Left + 200End Sub二、滚动条水平滚动条HScroll1的数值范围04000，L
2、argeChange设置为200，SmallChange设置为50，水平滚动条HScroll1的值(Value)代表命令按钮Command1的宽度，当水平滚动条的滑块变化时，命令按钮Command1的宽度随之改变Private Sub Form_Load()HScroll1.Min = 0HScroll1.Max = 4000HScroll1.SmallChange = 50HScroll1.LargeChange = 200Command1.Caption = 驻倚靠危楼风细细，无言谁会凭栏意。衣带渐宽终不悔，为伊销得人憔悴End SubPrivate Sub HScroll1_Change
3、()Command1.Width = Val(HScroll1.Value)End Sub三、列表框 点击“-”按钮，将左边列表中的选中项移动到右边列表的末尾；点击“”按钮，将左边列表所有内容移动到右边列表的末尾；点击“= 0 And i = 0 And i = 0 And i = 0 And i -1 Then _ .RemoveItem .ListIndex End With End SubPrivate Sub Command5_Click() ClrList List1 List1.ClearEnd SubPrivate Sub Form_Load() List1.Clear: Lis
4、t1.AddItem 语文: List1.AddItem 数学: List1.AddItem 英语End Sub实现第一条、前一条、后一条、最后一条等4按钮的功能 Private Sub form_load()List1.AddItem 财务List1.AddItem 会计List1.AddItem 国贸List1.AddItem 营销List1.AddItem 工管Private Sub Command1_Click()List1.Text = List1.List(0)End SubPrivate Sub Command2_Click()List1.Text = List1.List(Li
5、st1.ListIndex - 1)End SubPrivate Sub Command3_Click()List1.Text = List1.List(List1.ListIndex + 1)End SubPrivate Sub Command4_Click()List1.Text = List1.List(List1.ListCount - 1)End Sub四、复选框 窗体中4个复选框分别代表4各班级，复选框中的标题文字代表班级人数，用户选择复选框后，点击命令按钮Command1，程序计算出所选班级的总人数，结果放入文本框Text1中。Private Sub Command1_Click
6、()Dim s%If Check1.Value = 1 Then s = s + Val(Check1.Caption)End IfIf Check2.Value = 1 Then s = s + Val(Check2.Caption)End IfIf Check3.Value = 1 Then s = s + Val(Check3.Caption)End IfIf Check4.Value = 1 Then s = s + Val(Check4.Caption)End IfText1.Text = Str(s)End SubPrivate Sub Form_Load()Check1.Capt
7、ion = 30Check2.Caption = 28Check3.Caption = 31Check4.Caption = 29Label1.Caption = 人数Text1.Text = End Sub用户选择复选框后，点击命令按钮Command1，程序根据复选框对文本框Text1中的字体进行相应的设置。Private Sub Command1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueIf Check2.Value = 1 Then Text1.FontItalic = TrueIf Check3.Value = 1 Th
8、en Text1.FontUnderline = TrueEnd Sub五、 单选框用户在数和算法两个框架中各选一个单选按钮，点击命令按钮Command1，程序根据选中单选按钮进行相应的计算，结果放入文本框Text1中。Private Sub Command1_Click()Dim a%, b%, c%, d%k = 1: t = 0a = Val(Option1.Caption)b = Val(Option2.Caption)If Option1.Value And Option3.Value Then For i = 1 To a k = k * i Next iText1.Text =
9、kElseIf Option1.Value And Option4.Value Then For i = 1 To a t = t + i Next iText1.Text = tElseIf Option2.Value And Option3.Value Then For i = 1 To b k = k * i Next iText1.Text = kElseIf Option2.Value And Option4.Value Then For i = 1 To b t = t + i Next iText1.Text = tEnd IfEnd Sub五、组合框字体组合框包括宋体、黑体、幼
10、圆、隶书4个列表项；字号组合框列表项的值从1248，以4递增。选择字体组合框或者字号组合框中的某一项，点击按钮Command1，文本框中的字体和字号进行相应的改变。Private Sub Command1_Click()Text1.FontName = Combo1.TextText1.FontSize = Combo2.TextEnd SubPrivate Sub Form_Load()Combo1.AddItem 宋体Combo1.AddItem 黑体Combo1.AddItem 幼圆Combo1.AddItem 隶书For i = 12 To 48 Step 4Combo2.AddIte
11、m iNext iText1.Text = Visual BasicEnd Sub七、多分枝加密：点击加密按钮Command1，输入1个小写英文字母，程序将该英文字母变为字母表中其后面的一个字母输出，如a改为b，m改为n，z改为a，以此类推。点击解密按钮Command2，输入1个小写英文字母，程序将其解密后通过输出。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim a As String, b As Stringa = InputBox()If Asc(a) = 122 Then b = Chr(97)Else: b = Chr(A
12、sc(a) + 1)End IfMsgBox bEnd SubPrivate Sub Command2_Click()Dim c As String, d As Stringc = InputBox()If Asc(c) = 97 Then d = Chr(122)Else: d = Chr(Asc(c) - 1)End IfMsgBox dEnd Sub铁路收费：铁路行李托运费计算规则为：行李重量不超过50kg时，每千克0.25元；超过50kg不超过100kg时，其超过部分每千克0.35元；超过100kg时，其超过部分每千克0.45元。点击按钮Command1，程序输入行李重量，计算并输出托
13、运费用。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim a As Double, b As Doublea = Val(InputBox()If a = 0 And a = 50 Then b = a * 0.25 ElseIf a = 100 Then b = 30 + (a - 100) * 0.45End IfMsgBox bEnd Sub （也可用select case 语句）成绩评定; 成绩评价方法为：90及以上优秀，80及以上良好，70及以上中等，60及以上及格，60以下不及格。点击按钮Command1，程序输入成绩，
14、输出成绩评价。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click() a = Val(InputBox(输入成绩) If a = 90 Then b = 优秀 ElseIf a = 80 Then b = 良好 ElseIf a = 70 Then b = 中等 ElseIf a = 60 Then b = 及格 Else b = 不及格 End If MsgBox bEnd Sub (也可用select case 语句或者直接限定范围进行选择）八、定义函数： 【一个月有几天】一个月的天数：在窗体Form1中实现函数Days。参数y和m分别表示
15、年份和月份，函数返回该年该月的天数。 提示：闰年2月份有29天，平年有28天。 闰年的条件：1）年份能被4整除，但不能被100整除；2）或年份能被400整除 Public Function Days(y As Long, m As Long) As Long End FunctionFunction leap(y As Long) As Boolean b1 = y Mod 4 = 0 b2 = y Mod 100 0 b3 = y Mod 400 = 0 leap = b1 And b2 Or b3End FunctionPublic Function days(y As Long, m A
16、s Long) As Long Select Case m Case 2 If leap(y) Then days = 29 Else days = 28 End If Case 4, 6, 9, 11 days = 30 Case 1, 3, 5, 7, 8, 10, 12 days = 31 End SelectEnd FunctionPrivate Sub Command1_Click() Dim a&, b&, c& a = Val(InputBox() b = Val(InputBox() c = days(a, b) MsgBox cEnd Sub【三角形】：在窗体Form1中实现
17、函数Triangle。a,b,c三个参数为三角形三条边，若三边能构成三角形，通过参数p将周长返回，函数返回值返回三角形面积；否则周长和面积均返回0。 提示： 海伦公式为： , Public Function Triangle(a As Long, b As Long, c As Long, p As Long) As Double End FunctionPublic Function Triangle(a As Long, b As Long, c As Long, ByRef p As Long) As Double Dim l If a + b = c Or a + c = b Or b
18、 + c a(j) Then p = j Next j k = a(i) a(i) = a(p) a(p) = kNext iEnd Sub（王老师的那种算法可能会评测错误）【判断是否三角形等腰】： 在窗体Form1中实现函数TriangleClass。a,b,c三个参数为三角形三条边，函数返回三角形的形状。可能的三角形形状为以下4种：等边三角形，等腰三角形，一般三角形，不构成三角形。 Public Function TriangleClass(a As Long, b As Long, c As Long) As String End Function Private Sub Command
19、1_Click()Dim a As Long, b As Long, c As Longa = Val(InputBox()b = Val(InputBox()c = Val(InputBox()MsgBox triangleclass(a, b, c)End SubPublic Function triangleclass(a As Long, b As Long, c As Long) As StringDim s$If a + b = c Or b + c = a Or a + c max Then max = a(i)Next iEnd Function【排序】：在窗体Form1中实现
20、子程序Sort。参数a()为数组，子程序Sort对该数组按逆序（从大到小）排序。 Public Sub Sort(a() As Long) End Sub Public Sub Sort(a() As Long)n = UBound(a)For i = 0 To n - 1For j = i + 1 To nIf a(j) a(i) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iEnd Sub【完数】：在窗体Form1中实现函数Perfect。如果参数x为完全数，该函数返回True；否则返回False。（完全数：真因子（除自身以外的因子）之和
21、为其本身） Public Function Perfect(x As Long) As Boolean End FunctionPrivate Sub Command1_Click()Dim x As Longx = Val(InputBox()MsgBox perfect(x)End SubPublic Function perfect(x As Long) As BooleanFor i = 0 To x - 1If x Mod i = 0 Thens = s + iEnd IfNext iIf s = x Thenperfect = TrueElseperfect = FalseEnd IfEnd Function【符号函数】 在窗体Form1中实现函数MySgn。当参数x0时，函数MySgn返回1；当参数x0时，函数MySgn返回-1；当参数x=0时，函数MySgn返回0。 Public Function MySgn(x As Long) As Long End FunctionPublic Fun
