更多"下面的程序用于根据文本框Text中输入的内容进行以下处理:
若T"的相关试题:
[填空题]下面的程序用于根据文本框Text中输入的内容进行以下处理:
若Text为4,6,则打印“Text的值为4,6”;若Text为1,3,5,7,则打印“Text的值为1,3,5,7”;若Text为8,9,则打印“Text的值为8,9”;否则打印“Text的值不在范围内”。请填空。
Private Sub Command1_Click( )
Select Case Val(Text.Text)
Case______
Print "Text的值为4,6"
Case______
Print "Text的值为1,3,5,7",
Case______
Print "Text的值为8,9"
Case______
Print "Text的值不在范围内"
End Select
End Sub
[填空题]下面的程序用于根据文本框Text中输入的内容进行以下处理:
若Text为4,6,则打印“Text的值为4,6”;若Text为1,3,5,7,则打印“Text的值为1,3,5,7”;若Text为8,9,则打印“Text的值为8,9”;否则打印“Text的值不在范围内”。请填空。
Private Sub Command1_Click( )
Select Case Val(Text.Text)
Case______
Print "Text的值为4,6"
Case______
Print "Text的值为1,3,5,7",
Case______
Print "Text的值为8,9"
Case______
Print "Text的值不在范围内"
End Select
End Sub
[填空题]下面的程序用于根据文本框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
[单项选择]在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:
Microsoft Sub Command1_Click( )
然后编写如下事件过程:
Private Sub Command1_Click( )
Open "d:/temp/outf.txt" For Output As #1
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c>="A" And c<="Z" Then
Print #1,LCase(c)
End If
Next i
Close
End Sub
程序运行后,单击命令按钮,文件outf.txt中的内容是
A. MVBP
B. mvbp
C. M
D. m
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:
Microsoft Visual Basic Programming
然后编写如下事件过程:
Private Sub Command1_CIick( )
Open"d:/temp/outf. txt" For Output As #1
For i=1 To Len(Text1. Text)
c=Mid(Text1. Text, i, 1)
If c>="A" And c<="Z" Then
Print #1, LCase(C)
End If
Next i
Close
End Sub
程序运行后,单击命令按钮,文件outf. txt中的内容是______。
A. MVBP
B. mvbp
C. M
D. m