求一段VB代码 对你们来说很简单很简单的

来源：百度知道 编辑：UC知道 时间：2024/06/22 06:32:31
VB

一开始出来一个对话框，问一个问题，然后答对了出现一句话，错误了出现一句话，答对了进入第二个问题

谢谢 非常感谢

Private Sub Form_Load()
If MsgBox("1.问题", vbYesNo, "标题") = 7 Then
MsgBox ("答错")
Else '否则进入下一题
MsgBox ("答对")

If MsgBox("2.问题", vbYesNo, "标题") = 7 Then
MsgBox ("答错")
Else '
MsgBox ("答对")
End If
End If
End Sub

我是新手...写着玩 ....

msgbox"你的回答错误"

以前编的简单的猜数游戏，你看看吧
private Sub Form_Click()
Randomize
Dim a As Integer
Dim b As Integer
a = Int(Rnd * 100)
s1 = "请输入"
For i = 1 To 10
b = InputBox(s1, "猜一猜")
If b > a Then
s1 = "请输入(大了)"
ElseIf b < a Then
s1 = "请输入(小了)"
Else
MsgBox "恭喜在第" & i & "次猜中了", vbInformation, "猜一猜"