申请舱口检视、载损鉴定和监视卸载的，应提供（）等。

下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。

Private Sub Command1_Click()

Dim x AS Single

x=InputBox("请输入x的值!")

________

Case Is＜50

y=0.8*x

Case 50 To 100

y=0.7*K

__________

Print"输入的数据出界!"

End Select

Print x，y

End Sub

下面程序用来计算： Private Sub Command1_Click() A = Val(TextText) B = Val (TextText) Select Case A Case【 】 N=A+B Case Is = 5 N = B/A Case Is＜5 N=0 End Select TextText = N End Sub

下列程序的功能是:当x<50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当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

【 】

Print "输入的数据出界!"

End Select

Print x, y

End Sub

下列程序的运行机结果是【 】。

Private Sub Form_ Click()

Dim k As Integer

n= 5

m= 1

k= 1

Do

m=m+2

k= k+1

Loop While k＜=n

Print m

End Sub

下列程序的功能是：当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

【 】

Print "输入数据出界!"

End Select

Print x, y

End Sub

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

A．105

B．1

C．120

D．15

设有如下程序； Private Sub Form_ Load() Show Text1.Text = " " Text1.SetFocus End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As SinglE)Print “程序设计” End Sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) Print "Visual Basic" End Sub程序运行后，如果在文本框中输入字母a(即直接按a键)，然后单击窗体，则在窗体上显示的内容是______。

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．A程序设计

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

A．105

B．1

C．120

D．15