Question

VB程序设计 各位大学麻烦帮忙做一下这道题目啊！！非常感谢啊！

Answer 1

Dim Education As String
Dim Course As String
If Option1.Value = True Then
Education = "本科生"
End If
If Option2.Value = True Then
Education = "研究生"
End If
If Check1.Value = 1 Then
If Len(Course) > 0 Then
Course = Course & "，"
End If
Course = Course & "企业管理"
End If
If Check2.Value = 1 Then
If Len(Course) > 0 Then
Course = Course & "，"
End If
Course = Course & "货币银行学"
End If
If Check3.Value = 1 Then
If Len(Course) > 0 Then
Course = Course & "，"
End If
Course = Course & "国际金融"
End If
If Check4.Value = 1 Then
If Len(Course) > 0 Then
Course = Course & "，"
End If
Course = Course & "外贸系统概论"
End If
MsgBox Text1.Text & " 是 " & Education & ",所选课程是：" & Course, , "选课情况"