UC知道VB编程 求代码！必重谢！
来源：百度知道 编辑：UC知道 时间：2024/06/01 01:46:19
[1] 用INPUTBOX函数输入一个分数，若大于90，提示“优秀”，[80，89]，[70，79]，[60，69]，小于60。
[2] 编写一个点菜程序，双击菜单列表框，可实现自动“选择”，可“删除”已点菜单中的某一项，“重点”则删除所有已点菜单。
[3] 编写程序，输入若干个学生的姓名、出生年月、两门统考课程（外语、计算机），存入磁盘文件d：\student .dat（可以用记事本打开，观察运行结果的正确）。
[4] 建立一个包含两个子窗体的MDI窗体，在子窗体上分别设置命令按钮，实现两子窗体显示和隐藏的切换。
[2] 编写一个点菜程序，双击菜单列表框，可实现自动“选择”，可“删除”已点菜单中的某一项，“重点”则删除所有已点菜单。
[3] 编写程序，输入若干个学生的姓名、出生年月、两门统考课程（外语、计算机），存入磁盘文件d：\student .dat（可以用记事本打开，观察运行结果的正确）。
[4] 建立一个包含两个子窗体的MDI窗体，在子窗体上分别设置命令按钮，实现两子窗体显示和隐藏的切换。
Private Sub Form_Load()
c = InputBox("请输入分数", "学生成绩")
If c < 60 Then
MsgBox "您的成绩不及格"
ElseIf c >= 60 And c < 70 Then
MsgBox "您的成绩一般"
ElseIf c >= 70 And c < 80 Then
MsgBox "您的成绩中等"
ElseIf c >= 80 And c < 90 Then
MsgBox "您的成绩良好"
ElseIf c >= 90 And c <= 100 Then
MsgBox "您的成绩优秀"
Else
MsgBox "您输入的分数有问题"
End If
End Sub
第二题
Private Sub Form_Load()
Command1.Caption = "重点"
End Sub
Private Sub list1_dblclick()
List2.AddItem List1.List(List1.ListIndex)
End Sub
Private Sub list2_dblclick()
List2.RemoveItem (List2.ListIndex)
End Sub
Private Sub command1_click()
List2.Clear
End Sub
第三题
创建一个TEXT 一个按钮 将TEXT的MULTILINE的属性 设置为TRUE
然后代码如下
Private Sub Command1_Click()
Di