vb问题1 急急急急

来源：百度知道 编辑：UC知道 时间：2024/05/24 01:07:50
10.其窗体上有两个标签L1和L2，
标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”；
两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，
显示“*”），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，
但不完整，要求去掉程序中的注释符，把程序中的？改为正确内容，使得在运
行时，在Text1中输入口令后，单击“确定”，如果输入的是“123456”，则
在Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如
图所示的错误提示对话框，并且Text2中的数字减1。最多可输入3次口令，
若3次都输入错误，则禁止再次输入。
Private Sub C1_Click()
' If ? = "123456" Then
Text1.Text = "口令正确"
' Text1.? = ""
Else
Text2.Text = Text2.Text - 1
' If Text2.Text > ? Then
MsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"
Else
MsgBox "3次输入错误，请退出"
' Text1.Enabled = ?
End If
End If
End Sub

11.窗体上有一个名称为 Text1的文本框；两个复选框，名称分别为Ch1和Ch2，
标题分别为“爱心社”和“学通社”。要求程序运行后，如果只选中Ch1，
单击窗体，则在文本框中显示“报名参加爱心社”；如果只选中Ch2，然后
单击窗体，则在文本框中显示"报名参加学通社"；如果同时选中Ch1和Ch2，
单

10题：
Private Sub C1_Click()
If Text1.Text = "123456" Then
Text1.Text = "口令正确"
Text1. = "" --------这句莫名其妙，你看是不是写错了
Else
Text2.Text = Text2.Text - 1
If Text2.Text > 0 Then
MsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"
Else
MsgBox "3次输入错误，请退出"
Text1.Enabled = False
End If
End If
End Sub

11题：
Private Sub Form_Click()
Text1.Text = ""
If Ch1.Value And Ch2.Value Then
Text1.Text = "报名参加爱心社和学通社"
Else
If Ch1.Value Then
Text1.Text = "报名参加爱心社"
Else
If Ch2.Value Then
Text1.Text = "报名参加学通社"
End If
End If
End If
End Sub

12题:
Private Sub CmdExit_Click()
End
End Sub

Private Sub CmdStart_Click()
Dim g As Single, N As Integer, S As Single
myfile1 = App.Path & "\" & "grade.dat&