VB程序参考.doc

1.输入语文、数学、英语的成绩，点击计算求总分和平均分。Private Sub Command1_Click()Dim yu As DoubleDim shu As DoubleDim ying As DoubleDim zong As Doubleyu = Val(Text1.Text)shu = Val(Text2.Text)ying = Val(Text3.Text)zong = yu + shu + yingpin = zong / 3Text4.Text = zongText5.Text = pinEnd Sub2.点击显示按钮在文本框中显示欢迎进入VB世界！点击清除按钮欢迎进入VB世界！消失。Private Sub Command1_Click()Text1.Text = 欢迎进入VB世界！End SubPrivate Sub Command2_Click()Text1.Text = End Sub3. 编写一个程序根据用户输入的两个数，然后输出较大的数。Private Sub Command1_Click()Dim a As DoubleDim b As DoubleDim max As Doublea = Val(Text1.Text)b = Val(Text2.Text)If a b Thenmax = aElsemax = bEnd IfText3.Text = maxEnd Sub第二题：编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及格五个等级。判断标准如下：不及格（E） score60及格(D) 60score70中等(C) 70score80良好(B) 80score90优 (A) score90Private Sub Command1_Click()Dim score As DoubleDim degree As Stringscore = Val(Text1.Text)Select Case scoreCase Is 20 Then r = 15Else r = 5End IfCase 1 To 5, 10, 11If n 20 Then r = 30Else r = 20End IfCase Else r = 10End SelectLabel4.Caption = Label4.Caption & r & %End Sub1.请设计一个如图 1 与图 2 所示的下拉菜单，各菜单的名称属性如表 1所示，要求使用菜单编辑器设置各级菜单及相应热键。图1文件下拉菜单图2文件下拉菜单标题名称上级菜单标题热键快捷键文件Mfile无F无新建MNew文件NCtrL+N打开MOpen文件OCtrL+O保存MSave文件SCtrL+S关闭MClose文件CCtrL+C分割线MSp1文件无无退出MExit文件ECtrL+E格式MChar无H无居左MLeft格式LCtrL+L居右MRight格式RCtrL+R居中MCenter格式MCtrL+M分割线MSp2格式无无字体MFont格式TCtrL+T2，输入三个数，求其中最大数。界面如下图所示：Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim max As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)max = aIf max b Then max = bIf max c Then max = cText4.Text = maxEnd Sub10. 编写程序，求出100之内的所有勾股数。（勾股数：a2+b2=c2,a、b、c为自然数，且ab）Dim a As IntegerDim b As IntegerDim c As IntegerFor a = 1 To 100 For b = 1 To 100 For c = 1 To 100 If a 2 + b 2 = c 2 And a b Then Print a, b, c; 是勾股数 End If Next c Next bNext aEnd Sub1. 使用Rnd函数生成5个 0100之间的随机整数，找出这5个数中的最大数与最小数，并以升序重新排列这5个数。窗体格式如图（9分） 参考答案：*界面设计（1分）*Option ExplicitOption Base 1Dim a(5) As IntegerPrivate Sub Command1_Click() Dim max As Integer 存储最大数 Dim min As Integer 存储最小数 Dim i As Integer 循环变量 Dim j As Integer 循环变量 Dim t As Integer 交换变量 Dim s As String 存储排序后的5个数 *求最大最小值（2分）* max = 0 min = 100 For i = 1 To 5 If max a(i) Then min = a(i) Next i Text1.Text = maxText2.Text = min*排序（2分）* For i = 1 To 5 For j = i + 1 To 5 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i For i = 1 To 5 s = s + Str(a(i) Next i Label4.Caption = s *End SubPrivate Sub Form_Load() Dim i As Integer Dim s As String Label3.FontSize = 18 Label4.FontSize = 18 Text1.FontSize = 18 Text2.FontSize = 18 *初始化随机数（2分）*For i = 1 To 5 a(i) = Int(Rnd * 101) s = s + Str(a(i