vb（6.0）作业，做好后打包压缩上传，绝对采纳，谢谢。

Private Sub Command1_Click()
If Val(Text2(2).Text) = Val(Text2(0).Text) + Val(Text2(1).Text) Then
Label2.Caption = "答案正确！"
Else
Label2.Caption = "答案错误！"
End If
End Sub

Private Sub Command2_Click()
Dim XX As Single
XX = Val(Text3.Text) * 3.14 / 180
Label3.Caption = Sin(XX)
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2(0).Text = ""
Text2(1).Text = ""
Text2(2).Text = ""
Text3.Text = ""
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""

Option1(0).Value = True
End Sub

Private Sub Option1_Click(Index As Integer)
Command1.Enabled = False
Command2.Enabled = False
If Option1(0).Value = True Then
Text1.Text = ""
Label1.Caption = ""
Randomize
Text1.Text = Int(Rnd * 999 + 1000)
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "这个数是偶数！"
Else
Label1.Caption = "这个数是奇数！"
End If
ElseIf Option1(1).Value = True Then
Text2(0).Text = ""
Text2(1).Text = ""
Text2(2).Text = ""
Label2.Caption = ""
Randomize
Text2(0).Text = Int(Rnd * 40 + 10)
Randomize
Text2(1).Text = Int(Rnd * 40 + 10)
Command1.Enabled = True
ElseIf Option1(2).Value = True Then
Text3.Text = ""
Label3.Caption = ""
Command2.Enabled = True
End If
End Sub

击按钮，在弹出的输入对话框中输入一个整数，并判断该整数是否为偶数，并在文本框中显示相应的结果。

2.
单击“出题”按钮，在文本框1和文本框2中分别产生一个[10，50]之间的随机整数；用户在文本框3中输入一个数字后，单击“判断”按钮，若文本框1和文本框2中的数字之和等于文本框3中的数字，则在下面的标签中显示“正确”，否则显示“错误”
。具体要求见目标程序。

程序已写好，在附件中。

下载我的附件了吗？我运行过都可以用的。

请采纳

程序已经经过检测，见附件，有何问题请继续追问

若满意请及时采纳，谢谢

稍后提供代码