填空题

下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,
Private Sub Command1_Click()
Dim x As Single
x = InputBox("请输入x的值" )
Select Case x
Case Is＜50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【12】
Print "输入数据出界!"
End Select
Print x, y
End Sub

【参考答案】

Case Else
<上一题 目录 下一题>
热门 试题

填空题
设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 【8】 。
填空题
下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open 【9】 As #1 For i=1 To 10 Print #1 ,i Next Close #1 End Sub
相关试题