VB 输入一个数字(1~7)分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形式的星期一至星期日

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 22:47:12
VB输入一个数字(1~7)分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形式的星期一至星期日VB输入一个数字(1~7)分别利用分支if语句.seleck语句和choose

VB 输入一个数字(1~7)分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形式的星期一至星期日
VB 输入一个数字(1~7)分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形式的星期一至星期日

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

VB 输入一个数字(1~7)分别利用分支if语句.seleck语句和choose函数三种方法.显示用英文形式的星期一至星期日 寻VB程序代码:输入一个数字(1~7),通过choose函数显示对应的星期一到星期日 VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显示平均值.怎么写?比如 输入:5.6 8.5 平均值:7.05 VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显示平均值.怎么写?比如 输入:5.6 8.5 平均值:7.05 c语言求此题目的答案.1.输入两个整数,输出较大的一个;输入三个数,求三个数中的最大值.C 分别使用单分支、双分支及嵌套实现. 利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值i,j分别代表什么 , 用VB 输入一行字符 分别统计英文字母 数字和其他符号 ? 4又12分支5+(-7分支1)+(-1又7分支2+6又12分支7)利用加法运算律将下列重新组合 VB数字倒金字塔程序 输入1-9之间的数字,形成以下倒金字塔7777777777777666666666665555555554444444333332221 vb!输入一个四位数,求四个数字之和,判断和是不是质数 vb 数字转换 一个数 转化成两个数两个文本,一个按钮.第一个文本可以输入1-5个数.分别是13579中的1-5个.其中1=38,3=49,5=05,7=16,9=27.目的:第一个文本输入1-3个数,比如输入119,那么第二个文本能把1 1.输入一个三位整数,将数字位置重新排列,组成一个尽可大的三位数.求vb算法 VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显 示最大值和最小值相除的结果比如:4.5 4.96 最大值和最小值相除:4.96/4.5=1.1022222222222 在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编? 用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18 用VB编程实现下面的目的,输入一个正整数,然后计算该数的每一位非零数字相乘的积.如输入103601计算结果为1*3*6*1=18 在vb中输入一个任意整数,如何实现将各个位数上的数字提取出来 VB程序 利用输入对话框输入两个正整数,求最大公约数.学的VB程序,编一程序:利用输入对话框输入两个正整数,求最大公约数.