帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 23:10:56
帮忙看哈错在哪里呀.
Private Sub Command1_Click()
Dim ,b$
a = Val(InputBox("输入1-7之间的一个整数"))
selectcase a
Case 1
MsgBox ("今天是" & monday)
Case 2
MsgBox ("今天是" & tuesday)
Case 3
MsgBox ("今天是" & wednesday)
Case 4
MsgBox ("今天是" & thursday)
Case 5
MsgBox ("今天是" & friday)
Case 6
MsgBox ("今天是" & saturday)
Case 7
MsgBox ("今天是" & sunday)
End Select
End Sub
Private Sub Command1_Click()
Dim ,b$
a = Val(InputBox("输入1-7之间的一个整数"))
selectcase a
Case 1
MsgBox ("今天是" & monday)
Case 2
MsgBox ("今天是" & tuesday)
Case 3
MsgBox ("今天是" & wednesday)
Case 4
MsgBox ("今天是" & thursday)
Case 5
MsgBox ("今天是" & friday)
Case 6
MsgBox ("今天是" & saturday)
Case 7
MsgBox ("今天是" & sunday)
End Select
End Sub
看样子你是想将输入的数字转英文.
monday、tuesday……要么是变量,要么是字符串.
如果是变量,看看你初始化没有;
如果是字符串,为什么不放到引号里面?
monday、tuesday……要么是变量,要么是字符串.
如果是变量,看看你初始化没有;
如果是字符串,为什么不放到引号里面?
帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo
Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex
帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
0402 Private Sub Command1_Click() Dim a As Single,b As Singl
Private Sub Command1_Click() Dim a As Long a = 1234 a& = 456
Private Sub Command1_Click() Dim b,k For k=1 to 6 b=23+k Nex
private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0
Private Sub Command1_Click() Dim i As Double,M As Double,L A
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To