影响粘度的因素主要有温度、压力和溶解气。

下面的程序用于根据文本框Test中输入的内容进行以下处理：
若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。
　　Private Sub Command1_Click( )
　　　　Selct Case Val(Text1.Text)
　　　　　　　Case　【13】　
　　　　　　　　　Print "您的成绩为优秀！"
　　　　　　　Case　【14】　
　　　　　　　　　Print "您的成绩为良好！"
　　　　　　　Case　【15】　
　　　　　　　　　Print "您的成绩为一般！"
　　　　　　　Case Else
　　　　　　　　　Print "您的成绩为一般以下！"
　　　End Select
　　End Sub