vb程序代码

vb程序代码 1、成绩题(一个命令按钮) Private Sub Command1_Click() For n = 1 To 5 Step 1 Sco = InputBox$("请输入学生成绩:") a = 0 b = 0 c = 0 d = 0 If Sco >= 0 And Sco < 60 Then a = a + 1 ElseIf Sco >= 60 And Sco < 75 Then b = b + 1 ElseIf Sco >= 75 And Sco < 85 Then c = c + 1 ElseIf Sco >= 85 And Sco <= 100 Then d = d + 1 End If Next n Print "不及格"; a; "人,"; "及格"; b; "人,"; "良"; c; "人,"; "优秀"; d; "人." End Sub 2、阶乘题(一个命令按钮、一个标签控件) Private Sub Command1_Click() s = 1 i = 1 n = InputBox("请输入整数N:", "输入框") For i = 1 To n Step 1 s = s * i Next i Label1.Caption = s End Sub 3、价格题(一个命令按钮) Private Sub Command1_Click() a1 = InputBox("请输入第一个商品单价:", "输入框") a2 = InputBox("请输入第一个商品购买数量:", "输入框") b1 = InputBox("请输入第二个商品单价:", "输入框") b2 = InputBox("请输入第二个商品购买数量:", "输入框") c1 = InputBox("请输入第三个商品单价:", "输入框") c2 = InputBox("请输入第三个商品购买数量:", "输入框") Print "第一种商品的金额为", a1 * a2 Print "第二种商品的金额为", b1 * b2 Print "第二种商品的金额为 ", c1 * c2 Print "总金额为", a1 * a2 + b1 * b2 + c1 * c2 End Sub 4、奇偶题(一个命令按钮) Private Sub Command1_Click() For i = 1 To 20 c = InputBox("请输入整数:") If c Mod 2 = 0 Then a = a + 1 Else b = b + 1 End If Next i Print "偶数个数为"; a; "个。奇数个数为"; b; "个" End Sub 5、窗口转换题(两个窗体、1:命令按钮，2:文本框) Private Sub Command1_Click() Form1.Visible = False Form2.Visible = True Form2.Text1.Text = "第二个窗口" End Sub 6、字体题(一个标签、一个文本框、四个复选框、一个按钮) Private Sub ChkColor_Click() If ChkColor.Value = 1 Then TxtVBprog.ForeColor = &HFF& Else TxtVBprog.ForeColor = &H80000012 End If End Sub Private Sub ChkItalic_Click() If ChkItalic.Value = 1 Then TxtVBprog.FontItalic = True Else TxtVBprog.FontItalic = False End If End Sub Private Sub ChkKai_Click() If ChkKai.Value = 1 Then TxtVBprog.FontName = "楷体_GB2312" Else TxtVBprog.FontName = "宋体" End If End Sub Private Sub ChkSize_Click() If ChkSize.Value = 1 Then TxtVBprog.FontSize = 24 Else TxtVBprog.FontSize = 10 End If End Sub Private Sub CmdExit_Click() End End Sub