Question

高分寻求高手帮忙解决一下VB的题，答案及解释一下各语句的意思，谢谢！

1、 在窗体上画一个文本框，然后编写如下事件过程。
名称为command1的命令按钮和两个名称分别为Text1、Text2的文本框
private sub command1_click()
n=text1.text
select case n
case 1 to 20
x=10
case 2,4,6
x=20
case is<10
x=30
case 10
x=40
end select
text2.text=x
end sub
程序运行后,如果在文件内容是文本框Text1中输入10 ,然后单击命令按钮,则在text2中显示的是（ ）

2、 在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程：
private sub command_click()
dim num as integer
num=1
do until num>6
print num;
num=num+2.4
loop
end sub
程序运行后，单击命令按钮，则窗体上显示的内容是 （ ）
3、 在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程。
Private sub command1_click()
Dim a as integer, sas integer
a=8
S=1
Do
s=s+a
a=a+1
loop while a<=0
print s;a
end sub
程序运行后，单击命令按钮，则窗体上显示的内容是 （ ）

4、 设有如下通用过程
public functiont f(x as integer)
dim y as integer
x=20
y=2
f=x*y
end function
在窗体上画一个名称为command 1 的命令按钮，然后编写如下事件过程。
Private sub command1_click()
Static x as integer
X=10
Y=5
Y=f(x)
Print x;y
End sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是 （ ）
请问一下高手，可以帮助解释一下各个语句的意思吗？

Answer 1

Private Sub command1_click()
n = Text1.Text 'n=10
Select Case n '对N进行判断
Case 1 To 20 '如果N在1到20的范围里
x = 10
Case 2, 4, 6 '如果N=2或4 或6
x = 20
Case Is < 10 '如果小于10
x = 30
Case 10 '如果等于10
x = 40
End Select
Text2.Text = x '显示X值到TEXT2中
End Sub
输入10后返回10
*****************************************
Private Sub Command1_Click()
Dim num As Integer '定义其为整数型
num = 1 '它等于1
Do Until num > 6 '在它小于6时一直循环
Print num '显示这个值
num = num + 2.4 '这个值再加上2.4
Loop
End Sub

运行结果是
1
3
5
'因为它是整数,所以小数部份不显示了.

************************************************

Private Sub command1_click()
Dim a As Integer, s As Integer '定义两个整型变量
a = 8
s = 1
Do
s = s + a
a = a + 1
Loop While a <= 0 '当A小于等于0时退出DO循环
Print s; a

End Sub
'第一次S=1+8=9,A=8+1=9 就退出循环,所以显示
9 9
*****************************************
Public Function f(x As Integer) '函数接收参数X
Dim y As Integer
x = 20 '重新赋值X,舍弃了传递过来的X=10,因为是Static变量,它在这个窗体内通用,同时也改变了下面过程中的X值
y = 2
f = x * y '反回值20*2=40
End Function
'在窗体上画一个名称为command 1 的命令按钮，然后编写如下事件过程。
Private Sub command1_click()
Static x As Integer '定义变量X
x = 10 'X=10
y = 5
y = f(x) 'y=F(本过程的X),把参数X传递到上面的函数中去
Print x; y '显示
End Sub

结果是

20 40

Answer 2

1. 10
2. 1 3.4 5.8
3. 9 9
4. 20 40
你不会一句都看不懂吧？