VB编程常用代码 大一练习专用
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
A,B,C排序由大到小
Dim a As Single,b As Single,c As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
If b>a Then
d=a:a=b:b=d
End If
If c>a Then
d=a:a=c:c=d
End If
If c>b Then
d=b:b=c:c=d
End If
Text4.Text=a
Text5.Text=b
Text6.Text=c
End Sub
Private 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
Else
m="你输出的数:"&b&"是奇数"
result=MsgBox(m,1,"判断结果为")
Form1.Print result
End If
End Sub
1.设计程序计算圆的周长和面积
2.用print方法输出一个空心图形：如正方形，长方形，三角形，平行四边形。
3.一个笼子里鸡和兔，一共数得h个头、f只脚。设计程序计算鸡和兔共有几只。private sub Form_lond()
Debug.Print5+7
Cls
Caption="用方print法输出"
AutoRedraw=True
For i=1To5
Print Tab(15-i);String(i,"●");Tab(30-i);String(i,"⊙")