Question

VB补考，弄到了补考卷子，那位高手能帮忙一下，希望周五之前告诉我答案，万分感激哇

下列程序的功能是：当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 * x
___________
Print "输入的数据出界！"
End Select
Print x, y
End Sub

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click（）
Dim str As String,s As String,c As String
str=UCase （Text 1）
s=""
c="Z"
While c＞="A"
If InStr（str,c）=0 Then
s=__________
End If
c=Chr＄（Asc（c）___________）
Wend
If s<>""Then
Text1=s
__________
End Sub

设有如下程序：
Private Sub Form_Click（）
Dim a As Integer, s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是求________。程序运行后，单击窗体，输出结果为________。

Sub过程与Function过程最根本的区别是_Sub过程不能返回值，而Function过程能返回值_。

计算1+3+5+...+99的值

设x=4,y=8,z=7,则 x<y And （Not y>z） Or z<x 的值为？

Label控件 TextBox控件 OptionButton控件 CheckBox控件 Command控件 Form控件 的基本属性

列表框List的用法及其属性

工程包含的文件类型

下列说法错误的是
A) 方法是对象的一部分
B) 在调用方法时，对象名是不可缺少的
C) 方法是一种特殊的过程和函数
D) 方法的调用格式和对象属性的使用格式相同

日期型数据的格式

Format的用法

向随机文件中写数据应使用语句Print #文件号（错误）

下列程序的结果
1、Option Base 1
Private Sub Command1_Click（）
Dim a（5, 5）As Integer
For i= 1 To 5
For j=1 To 5
a（i, j）=（i +j ）*5\10
Next j
Next i
s=0
For i=1 To 5
s=s+a（i, i）
Next i
Print s
End Sub

2、Option Base 1
Private Sub Command1_Click（）
Dim c As Integer, d As Integer
d=0
c=6
x=Array（2,4,6,8,10,12）
For i=1 To 6
If x（i）>c Then
d=d+x（i）
c=x（i）
Else
d=d-c
End If
Next i
Print d
End Sub

3、Sub subP（b（）As Integer）
For i=1 To 4
b（i）=2*i
Next i
End Sub
Private Sub Command1_Click（）
Dim a（1 To 4）As Integer
a（1）=5
a（2）=6
a（3）=7
a（4）=8
subPa（）
For i=1 To 4
Print a（i）
Next i
End Sub

对以下程序需要看懂
Private Sub Command1_Click（）
Dim a（30）As Integer
For i=1 To 30
a（i）=Int（Rnd*100）
Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem>90 Then Exit For
Next
End Sub

Answer 1

下列程序的功能是：当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的值！"）
select case x___________
Case Is<50
y=0.8 * x
Case 50 To 100
y=0.7 * x
_case else__________
Print "输入的数据出界！"
End Select
Print x, y
End Sub

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click()

Dim str As String, s As String, c As String
str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, c) = 0 Then
s = s + c
End If
c = Chr$(Asc(c) - 1)
Wend
If s <> "" Then
Text1 = s
Text1.Text = Text1
End If
End Sub

设有如下程序：
Private Sub Form_Click（）
Dim a As Integer, s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是求_1+2+3+...+8_______。程序运行后，单击窗体，输出结果为___36_____。

Answer 2

有这个时间你自己上机运行一下也搞得差不多了。