下面的程序用于根据文本框Test中输入的内容进行以下处理： 若Text为1 则打印“您的成绩为优秀！
下面的程序用于根据文本框Test中输入的内容进行以下处理： 若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case【 】 Print "您的成绩为优秀！" Case【 】 Print "您的成绩为良好！" Case【 】 Print "您的成绩为一般！" Case Else Print "您的成绩为一般以下！" End Select End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
495***263
2023-07-21 18:39:15
正确答案：123
函数调用了Val(Text1．Text)函数将从文本框中得到的字符串转化为数据，将转换来的数据作为情况语句的测试条件。因为当输入1时，则打印“您的成绩为优秀!”；所以当测试表达式的值与之相同时，就执行该Case分支的语句，同样当输人2，3等其他数字时执行其他的Case分支。注意：单行结构条件语句、块结构条件语句。
相似问题
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)， 然后编写如下事件过程： Private Sub Command1 Click() Text1．T
在窗体上画两个文本框 然后编写程序。程序运行后 如果在第一个文本框中输入A B C D或a b c
在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
要想在文本框中显示垂直滚动条 必须将ScrollBars属性设置为2 同时还应将【 】属性设置为Tr
要想在文本框中显示垂直滚动条，必须将ScrollBars属性设置为2，同时还应将【 】属性设置为True。请帮忙给出正确答案和分析，谢谢！
在Visual Basic中 当改变目录列表框的Path属性值时 改变了当前驱动器的【 】。请帮忙给
在Visual Basic中，当改变目录列表框的Path属性值时，改变了当前驱动器的【 】。请帮忙给出正确答案和分析，谢谢！
编写一过程将C盘中的Config.sys文件内容读出 并在文本框中显示出来。在窗体Form1上建立一
编写一过程将C盘中的Config sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MultiLine属性设置为True，ScrollBars属性
