VB编程常用代码 大一练习专用.docVIP

A,B,C排序由大到小 Dim?a?As?Single,?b?As?Single,?c?As?Singlea?=?Val(Text1.Text)b?=?Val(Text2.Text)c?=?Val(Text3.Text)If?b??a?Then?d?=?a:?a?=?b:?b?=?dEnd?IfIf?c??a?Then?d?=?a:?a?=?c:?c?=?dEnd?IfIf?c??b?Then?d?=?b:?b?=?c:?c?=?dEnd?IfText4.Text?=?aText5.Text?=?bText6.Text?=?cEnd?SubPrivate?Sub?Command2_Click()Text1.Text?=?Text2.Text?=?Text3.Text?=?Text4.Text?=?Text5.Text?=?Text6.Text?=?End?Sub 计算a+b Private Sub Command1_Click() Text4.Text = Val(Text2.Text) + Val(Text3.Text) Text1.Text = 欢迎新同学 End Sub 清除 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub 奇偶数显示器 显示 Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) If a / 2 = Int(a / 2) Then Text2.Text = 您输入的数是偶数 Else Text2.Text = 您输入的数是奇数 End If End Sub 清除 Private Sub Command2_Click() Text1.Text = Text2.Text = End Sub 奇偶数判断 Dim a, b As Integer Dim result As Integer a = Val(InputBox(请输入一个整数, 数的输入, 300, 400)) b = Val(InputBox(请输入一个整数, 数的输入, 300, 400)) If a / 2 = Int(a / 2) Then result = MsgBox(您输入的数: a 是一个偶数, 1, 判断结果) Form1.Print rusult Else m = 您输入的数: a 是一个奇数 result = MsgBox(您输入的数: a 是一个奇数, 1, 判断结果) Form1.Print result End If If b / 2 = Int(b / 2) Then result = MsgBox(您输入的数: b 是一个偶数, 1, 判断结果) Form1.Print rusult Else result = MsgBox(您输入的数: b 是一个奇数, 1, 判断结果) Form1.Print result End If 奇偶数判断 Private Sub Command1_Click() Dim a, b As Integer 变量声明 Dim result As Integer 结果设为整形（数值型） a = Val(InputBox(请输入一个数, 数的输入, 200, 300)) 变量赋值 （提示语，标题，返回值显示坐标） b = Val(InputBox(请输入一个数, 数的输入, 200, 300)) If a / 2 = Int(a / 2) Then 关系判断 n = 你输出的数; a 是偶数 结果输出 result = MsgBox(n, 1, 判断结果为) （提示语，按钮设置值，标题） Form1.Print result Else n = 你输出的数: a 是奇数 结果输出 result = MsgBox(n, 1, 判断结果为) Form1.Print result End If If b / 2 = Int(b / 2) Then m = 你输出的数; b 是偶数 出错点：“”和“=”处打空格 提示语与标题的设置为文本型加引号 英文的冒号与分号运用 result = MsgBox(m, 1, 判断结果为) Form1.Print result El