填空题

下列程序的功能是：当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
<上一题 目录 下一题>
热门 试题

填空题
下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1,2,3,... ,90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click( )Dim Y As SingleOpen 【15】 Y=3. 14159 180For i=1 To 90Ksc. K=iKsc. Sinx = Sin ( i * Y)Ksc. Cosx = Cos ( i * Y)Put #2, i, KscNext iClose #2End Sub
填空题
如果存在如下过程：Private Function Fun( a( ) As Integer)Dim First As Integer, Last As Integer, i As IntegerFirst = LBound(a)Last=UBound (a)Max = a(First)For i=First To LastIf a(i)＞Max Then Max =a(i)NextFun=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()ReDim m(1 To 4) As Integerm(1) =20: m(2) =30: m(3) =50: m(4) =100c =Fun(m)Print cEnd Sub单击命令按钮，其输出结果为 【10】 。
相关试题