VB 输入一个数字(1~7)分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形式的星期一至星
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/22 09:50:34
VB 输入一个数字(1~7)分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形式的星期一至星期日
窗体上放3个按钮和1个文本框,文本框用于输入1~7
Private Sub Command1_Click()
Dim d As Integer,s As String
d = Val(Text1.Text)
If d = 1 Then
s = "Monday"
ElseIf d = 2 Then
s = "Tuesday"
ElseIf d = 3 Then
s = "Wednesday"
ElseIf d = 4 Then
s = "Thursday"
ElseIf d = 5 Then
s = "Friday"
ElseIf d = 6 Then
s = "Saturday"
ElseIf d = 7 Then
s = "Sunday"
Else
s = "您的输入有误!"
End If
MsgBox s
End Sub
Private Sub Command2_Click()
Dim d As Integer,s As String
d = Val(Text1.Text)
Select Case d
Case 1
s = "Monday"
Case 2
s = "Tuesday"
Case 3
s = "Wednesday"
Case 4
s = "Thursday"
Case 5
s = "Friday"
Case 6
s = "Saturday"
Case 7
s = "Sunday"
Case Else
s = "您的输入有误!"
End Select
MsgBox s
End Sub
Private Sub Command3_Click()
Dim d As Integer,s As String
d = Val(Text1.Text)
If d >= 1 And d
再问: 你好 在帮忙看下这个问题吧... http://zhidao.baidu.com/question/413079723.html?quesup2&oldq=1
再答: 回答了
Private Sub Command1_Click()
Dim d As Integer,s As String
d = Val(Text1.Text)
If d = 1 Then
s = "Monday"
ElseIf d = 2 Then
s = "Tuesday"
ElseIf d = 3 Then
s = "Wednesday"
ElseIf d = 4 Then
s = "Thursday"
ElseIf d = 5 Then
s = "Friday"
ElseIf d = 6 Then
s = "Saturday"
ElseIf d = 7 Then
s = "Sunday"
Else
s = "您的输入有误!"
End If
MsgBox s
End Sub
Private Sub Command2_Click()
Dim d As Integer,s As String
d = Val(Text1.Text)
Select Case d
Case 1
s = "Monday"
Case 2
s = "Tuesday"
Case 3
s = "Wednesday"
Case 4
s = "Thursday"
Case 5
s = "Friday"
Case 6
s = "Saturday"
Case 7
s = "Sunday"
Case Else
s = "您的输入有误!"
End Select
MsgBox s
End Sub
Private Sub Command3_Click()
Dim d As Integer,s As String
d = Val(Text1.Text)
If d >= 1 And d
再问: 你好 在帮忙看下这个问题吧... http://zhidao.baidu.com/question/413079723.html?quesup2&oldq=1
再答: 回答了
VB编写程序:已知abc三个数,使数字从大到小排列,用一个if语句和一个嵌套的if语句如何实现啊啊啊啊
用switch语句和if-else嵌套语句两种方法实现输入成绩,求输出成绩相应的等级
用if语句和switch语句分别编写程序,实现以下功能:从键盘输入数字1,2,3,4,分别显示Excellent,Goo
VB的一个IF循环语句语句问题
C语言,分别用if 语句和switch语句编写程序求分段函数的值
利用循环语句 用VB计算1到100的奇数的和
VB 非常急!用循环语句分别显示下面的图案
vb 用inputbox函数输入3个任意整数,安从大到小顺序输出 (块if语句)
vb+if语句+与vb+if函数一样吗
编写一段程序,要求输入x的值,输出y的值,分别用不嵌套if语句,嵌套语句,if else语句,switch语句,编写
C语言的分支语句中,if()...if()...else...和if()...else if()...else...两者
选择分支结构中的if语句有几种形式