UC知道高分寻求高手帮忙解决一下VB的题，答案及解释一下各语句的意思，谢谢！
来源：百度知道 编辑：UC知道 时间：2024/06/18 06:11:22
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
在窗体上画
名称为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
在窗体上画
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+