VB编程题.docx
VB编程题1、设计一个“健康称”程序，界面如图所示。单击“健康状况”按钮后，根据计算公式将相应提示信息通过标签显示在按钮下面。计算公式为：标准体重身高105。体重高于标准体重的1.1倍为偏胖，提示 “偏胖，加强锻炼，注意节食”；体重低于标准体重的90%为偏瘦，提示 “偏瘦，增加营养”；其它为正常，提示“正常，继续保持”。 实现代码： Private Sub Command1_Click FontSize = 48 sg = Val(Text1.Text) tz = Val(Text2.Text) bztz = sg - 105 Select Case tz Case Is > 1.1 * bztz Print "偏胖，加强锻炼，注意节食" Case Is < 0.9 * bztz Print "偏瘦，增加营养" Case Else Print "正常，继续保持" End Select End Sub 2、用Inputbox函数输入a,b,c的值，判定他们能否构成三角形。若能构成三角形，计算此三角形的面积。 实现代码： Private Sub Command1_Click Dim a As Single, b As Single, c As Single, p As Single, s As Single a = Val(InputBox("请输入三角形第1条边长") 1 b = Val(InputBox("请输入三角形第2条边长") c = Val(InputBox("请输入三角形第3条边长") p = (a + b + c) / 2 If a >= p Or b >= p Or c >= p Then MsgBox "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c) MsgBox "面积为" & s End If End Sub 3、求1到150的所有整数的和。 实现代码： Private Sub Command1_Click Dim i As Integer, sum As Integer sum = 0 For i = 1 To 150 sum = sum + i Next i Print sum End Sub 4、设计一个字体属性设置程序，界面如图所示。要求:程序运行后，当选择好相应的检查框和单选按钮，单击“确定”按钮后，标签的内容会发生相应变化，单击“取消”按钮则恢复默认设置。 实现代码： Private Sub Check1_Click If Check1.Value = 1 Then Text1.FontBold = True 2 Else Text1.FontBold = False End If End Sub Private Sub Check2_Click If Check1.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Option1_Click If Option1.Value = True Then Text1.FontName = "宋体" End If End Sub Private Sub Option2_Click If Option2.Value = True Then Text1.FontName = "黑体" End If End Sub Private Sub Option3_Click If Option3.Value = True Then Text1.FontSize = 10 End If End Sub Private Sub Option4_Click If Option4.Value = True Then Text1.FontSize = 12 End If End Sub 5、编写一段代码，当单击窗体时，计算出1!+2!+3!+10!，并在窗体上输出结果。实现代码： Private Sub Command1_Click For i = 1 To 10 Sum = Sum + jiecheng(i) Next Print Sum End Sub 3 Function jiecheng(num) jiecheng = 1 For i = 1 To num jiecheng = jiecheng * i Next End Function 6、设计一个字符大小写转换程序，界面如图所示。当在文本框Text1中输入大写字母，在文本框Text2中同时显示其小写字母；当在文本框Text1中输入小写字母，在文本框Text2中同时显示其大写字母；当输入其他字符，则在文本框Text2中原样输出。 实现代码： Dim n As Integer Private Sub Text1_Change Dim ch As String n = Len(Text1.Text) ch = Right(Text1.Text, 1) If ch >= "A" And ch <= "Z" Then ch = LCase(ch) ElseIf ch >= "a" And ch <= "z" Then ch = UCase(ch) Else ch = ch End If Text2.Text = Left(Text1.Text, n - 1) & ch End Sub 7、设计如图所示的程序根据需要编写相应事件代码。 在组合框中输入内容后，单击“添加”按钮，如果组合框中设有该内容，则将输入内容加入到列表中，否则将不添加。 在列表中选择某一项后，单击“删除”按钮，则删除该项。 单击“清除”按钮，将清除列表中所有的内容。 4 实现代码： Private Sub Command1_Click For i = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(i) Then MsgBox "不允许重复输入，请重新输入!" Exit Sub End If Next i Combo1.AddItem Combo1.Text End Sub Private Sub Command2_Click Combo1.RemoveItem Combo1.ListIndex End Sub Private Sub Command3_Click Combo1.Clear End Sub 8、求100-200的所有所有能被3或5整除的整数的和。 实现代码： Private Sub Form_Click Dim i As Integer, s As Integer s = 0 For i = 100 To 200 If i Mod 3 = 0 And i Mod 5 = 0 Then s = s + i End If Next Print s End Sub 9、设计一个程序，用Inputbox函数输入一个华氏温度F，程序可将其转换成为摄氏温度C，用消息框msgbox弹出。转换公式为C=5/9(F-32). 实现代码： Private Sub Command1_Click 5 f = InputBox("请输入华氏度") c = 5 * (Val(f) - 32) / 9 MsgBox (c) End Sub 10、用Inputbox函数输入三个数，用print语句在窗体上打印出其中的最大值和最小值。 实现代码： Private Sub Command1_Click a = InputBox("请输入第一个数") b = InputBox("请输入第一个数") c = InputBox("请输入第一个数") Max = a Min = a If Max < b Then Max = b End If If Max < c Then Max = c End If MsgBox (Max) If Min > b Then Min = b End If If Min > c Then Min = c End If MsgBox (Min) End Sub 11、在窗体上输出100-200之间(包括100和200)所有不能被3整除的奇数的和。代码实现： Private Sub Command1_Click Dim i As Integer, s As Integer s = 0 For i = 101 To 200 Step 2 If i Mod 3 <> 0 Then s = s + i End If Next Print s End Sub 12、设计一个窗体，利用for循环输出内容如图所示。 6 实现代码： Private Sub Form_Click For i = 0 To 7 Print Tab(18 - i); For j = 1 To i Print "*" Next j For j = i + 1 To 1 Step -1 Print "*" Next j Print Next i End Sub 13、设计一个窗体，在一个标签中别显示系统的当前日期和时间，界面如图所示。 实现代码： Private Sub Command1_Click Label1.Caption = Date End Sub Private Sub Command2_Click Label1.Caption = Time End Sub 14、请在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，初始情况下都没有7 内容。请编写适当的事件过程，使得运行时，在T1中输入的任何字符，立即显示在T2中，如图所示。程序中不得使用任何变量。 实现代码： Private Sub Text1_Change Text2.Text = Text1.Text End Sub 15、在名称为Form1的窗体上画一个标签、一个文本框和一个命令按钮，如图所示。编写命令按钮的Click事件过程，使得程序运行后，在文本框中输入"计算机等级考试"，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。要求程序中不得使用任何变量。 实现代码： Private Sub Command1_Click If Text1.Text = "计算机等级考试" Then Label1.Visible = False Text1.Visible = False Print Text1.Text End If End Sub 16、在名称为Form1的窗体上画一个命令按钮，其名称为Cmd1，标题为"移到左上"。编写适当的事件过程，便利程序运行时，如果单击命令按钮，则按钮移动到窗体的左上角。程序中不得使用任何变量。程序运行时的窗体界面如图所示。 实现代码： Private Sub Cmd1_Click Cmd1.Left = 0 Cmd1.Top = 0 End Sub 17、在名称为Form1的窗体上，画一个文本框和两个命令按钮。文本框的名称为Txt1，内8 容在初始时为空。两个命令按钮的名称分别为Cmd1、Cmd2，标题分别为"输入"、"清除"。编写适当的事件过程，当程序运行时，单击Cmd1命令按钮，文本框中显示"祝你考试成功！"；单击Cmd2命令按钮时，文本框中内容为空。程序中不得使用任何变量。程序运行时的窗体界面如图所示。 实现代码： Private Sub cmd1_Click Text1.Text = "祝你考试成功！" End Sub Private Sub cmd2_Click Text1.Text = "" End Sub 18、在名称为Form1的窗体上画一个文本框，名称为Text1，字体为"黑体"，文本框中的初始内容为"程序设计"；再画一个命令按钮，名称为C1，标题为"改变字体"，如图34-1所示。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为"宋体"。程序中不得使用任何变量。 实现代码： Private Sub C1_Click Text1.FontName = "宋体" End Sub 19、在名称为Form1的窗体上画一个命令按钮，名称为Command1、标题为"移动本按钮"，如图所示。要求编写适当的事件过程，使得程序运行后，每单击按钮一次，按钮向左移100。要求：程序中不得使用任何变量，每个事件过程中只能写一条语句。 实现代码： Private Sub Command1_Click Command1.Left = Command1.Left - 100 End Sub 20、编写一个能在窗体上显示100到999中所有水仙花数的程序。 实现代码： 9 Private Sub Form_Click Dim x, y, z As Integer For x = 1 To 9 For y = 0 To 9 For z = 0 To 9 a = x * 100 + y * 10 + z b = x 3 + y 3 + z 3 If a = b Then Print a Next z Next y Next x End Sub 21、设计一个工程，实现输入三个数能重新按从大到小次序排列的功能。效果图如图所示。 实现代码： Private Sub Command1_Click x = Text1.Text y = Text2.Text z = Text3.Text If x < y Then t = y y = x x = t End If If x < z Then t = z z = x x = t End If If y < z Then t = z z = y y = t End If 10 Text4.Text = x Text5.Text = y Text6.Text = z End Sub 22、在名称为Form1的窗体上画一个标签，上方显示为"祝你考试成功！"。要求编写适当的事件过程，使得程序运行后，每隔0.5秒，标签向右移100。要求：程序中不得使用任何变量，每个事件过程中只能写一条语句。 实现代码： Private Sub Timer1_Timer Label1.Left = Label1.Left + 100 End Sub 11
