UC知道高手来看下这个代码是什么意思？
来源：百度知道 编辑：UC知道 时间：2024/06/03 00:59:38
Private Sub Command1_Click()
Dim strs1 As String
Dim a!
Password = "123456"
frmLogin.Show 1
If frmLogin.LoginSucceeded = True Then
a = 0
strs1 = "ÇëÊäÈëÁ÷Á¿¹À¼ÆÖµ"
a = InputBox(strs1)
b = GetSetting("test", "test", "test", q1)
q1 = a + b
Text6.Text = q1
SaveSetting "test", "test", "test", q1
End If
Password = ""
End Sub
Private Sub Command1_Click()
Dim strs1 As String
Dim a!
Password = "123456"
frmLogin.Show 1
If frmLogin.LoginSucceeded = True Then
a = 0
strs1 = "请输入值"
a = InputBox(strs1)
b = GetSetting("test", "test", "test", q1)
q1 = a + b
Text6.Text = q1
SaveSetting "test", "test", "test"
Dim strs1 As String
Dim a!
Password = "123456"
frmLogin.Show 1
If frmLogin.LoginSucceeded = True Then
a = 0
strs1 = "ÇëÊäÈëÁ÷Á¿¹À¼ÆÖµ"
a = InputBox(strs1)
b = GetSetting("test", "test", "test", q1)
q1 = a + b
Text6.Text = q1
SaveSetting "test", "test", "test", q1
End If
Password = ""
End Sub
Private Sub Command1_Click()
Dim strs1 As String
Dim a!
Password = "123456"
frmLogin.Show 1
If frmLogin.LoginSucceeded = True Then
a = 0
strs1 = "请输入值"
a = InputBox(strs1)
b = GetSetting("test", "test", "test", q1)
q1 = a + b
Text6.Text = q1
SaveSetting "test", "test", "test"
请具体说明是哪种代码？？
给你找来GOOGLE翻译的：
私人小组Command1_Click（）
暗淡strs1作为字符串
暗淡1！
密码=“123456”
frmLogin.Show 1
如果frmLogin.LoginSucceeded = true，那么
1 = 0
strs1 =“ÇëÊäÈëÁ ÷防空¹ å ¼ÆÖμ”
1 = InputBox（strs1）
乙= GetSetting（“测试”，“测试”，“测试”，第一季度）
第1季= 1 + b
Text6.Text =第1季
SaveSetting“测试”，“测试”，“测试”，第1季
完如果
密码=“”
完子