7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
str1 = "a"
str2 = "bb"
str3 = "ccc"
For i = 1 To 3
strr = "str" & CStr(i)
che = "Check" & CStr(i)
If Me.Controls.Item(che).Value = 1 Then
condition = condition + strr
End If
Next i
Print condition
End Sub
说明:窗口有三个复选框和一个按钮,通过循环的方式判定复选框是否被选定,如果选定,则将选定复选框对应编号的字符串连接到一起。例如选定check1,最后输出"a";选定check1和check3,最后输出"bbccc"。现在的程序只能输出"str1"及"str1str3"。Private Sub Command1_Click()
iStr = Array("a", "bb", "ccc")
For i = 1 To 3
strr = iStr(i - 1)
If Check(i).Value = 1 Then
condition = condition + strr
End If
Next i
Print condition
End Sub
Private Sub Command1_Click()
For i = 1 To 3
If Check(i).Value = 1 Then
condition = condition & Check(i).tag
End If
Next i
Print condition
End Sub
Private Sub Command1_Click()
iStr = Array("a", "bb", "ccc")
For i = 1 To 3
strr = iStr(i - 1)
che = "Check" & i
If Me.Controls.Item(che).Value = 1 Then
condition = condition + strr
End If
Next i
Print condition
End Sub
Private Sub Command1_Click()
str1 = "a"
str2 = "bb"
str3 = "ccc"
For i = 1 To 3
Select Case i'分开判断i的值
Case 1'如果i=1
strr = str1
Case 2'如果i=2
strr = str2
Case 3'如果i=3
strr = str3
End select
che = "Check" & CStr(i)
If Me.Controls.Item(che).Value = 1 Then
condition = condition + strr
End If
Next i
Print condition
End Sub
Var1 = 1
Var2 = 2
Execute("Var1 = Var2 + 3")
Response.Write (Var1) ' Prints 5