《VB编程题.docx》由会员分享，可在线阅读，更多相关《VB编程题.docx（10页珍藏版）》请在三一办公上搜索。
1、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
2、 Print 偏胖，加强锻炼，注意节食 Case Is = 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、设计一个字体
3、属性设置程序，界面如图所示。要求:程序运行后，当选择好相应的检查框和单选按钮，单击“确定”按钮后，标签的内容会发生相应变化，单击“取消”按钮则恢复默认设置。 实现代码： 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 =
4、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 S
5、ub 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 Ne
6、xt 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 = a And ch = z Then ch = UCase(c
7、h) 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)
8、 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 F
9、or 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语句在窗体
10、上打印出其中的最大值和最小值。 实现代码： Private Sub Command1_Click a = InputBox(请输入第一个数) b = InputBox(请输入第一个数) c = InputBox(请输入第一个数) Max = a Min = a If Max b Then Max = b End If If Max 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
11、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
12、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
13、 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 E
14、nd 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命令按
15、钮，文本框中显示祝你考试成功！；单击Cmd2命令按钮时，文本框中内容为空。程序中不得使用任何变量。程序运行时的窗体界面如图所示。 实现代码： Private Sub cmd1_Click Text1.Text = 祝你考试成功！ End Sub Private Sub cmd2_Click Text1.Text = End Sub 18、在名称为Form1的窗体上画一个文本框，名称为Text1，字体为黑体，文本框中的初始内容为程序设计；再画一个命令按钮，名称为C1，标题为改变字体，如图34-1所示。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为宋体。程序中不得使用任
16、何变量。 实现代码： 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 Priv
17、ate 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.Te
18、xt 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
