Sub过程与Function过程最根本的区别是

单项选择题

在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为
For i=1 To 3
For j=1 To 3
For k=1 To 2
x=x+3
Next k，j，i
Text1.Text=str(x)

A．21
B．42
C．54
D．72

单项选择题

下列程序运行时输出的结果是
Private Sub Form_Click()
Dim x
x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”)
For i=LBound(a，1)to UBound(a，1)
If Left(a(i)，1)=“天”Then Print a(i)；
Next
End Sub

A．天天向上
B．天天向上天上人间
C．出错信息
D．天天向上清华大学天上人间程序设计

单项选择题

下列说法错误的是

A．资源文件的扩展名为.res
B．一个窗体对应一个窗体文件
C．Visual Basic中的一个工程只包含一个窗体
D．Visual Basic中一个工程最多可以包含255个窗体

单项选择题

以下哪个关键字声明的局部变量在整个程序运行中其值一直保留

A．Stafic
B．Private
C．Dim
D．Pubic

单项选择题

单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click( )
Print Fun(23, 18)
End Sub
Public Function Fun(m As Integer, n As Integer) As Integer
Do Whilem ＜＞ n
Do While m ＞ n : m--m - n: Loop
Do While m ＜ n : n=n - m: Loop
Loop
Fun =m
End Function

A．0
B．1
C．3
D．5

单项选择题

在窗体上添加一命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)j
j=j10
Next
Print s
End Sub

A．4321
B．1234
C．34
D．12

单项选择题

设在窗体上有个文本框，然后编写如下的事件过程。
Private Sub Text1_KeyDown(KeyCode As Integef，Shift As Integer)
Const Alt=4
ConstKey_F2=&H71
altdown%=(Shift And Alt)＞0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text= "BBBBB"
End If
End Sub
上述程序运行后，如果按[Shift+F12]，则在文本框中显示得是

A．Alt+n
B．BBBBB
C．随机出几个数
D．文本框平均内容无变化

单项选择题

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下。
private Sub Command1_Click()
Dim arr(5)As Integer，arr1(5)As Integer
n=3
For i=1 To 5
an(i)=i
arrl(n)=2*n+i
Next
Print arr1(n)；arr(n)
End Sub
程序的运行结果为

A．3 11
B．11 3
C．13 3
D．3 13

单项选择题

有如下函数过程。
Function Fun( By Val x As Integer,By Val y As Integer) As Integer
Do While y ＜＞ 0
reminder = x Mod y
xmy
y = reminder
Loop
Fun = x
End Function
以下调用函数的事件过程，该程序的运行结果是
Private Sub CommandT_Click( )
Dim a As Integer,b As Integer
a = 100:b =25
x =Fun(a,B)
Print x
End Sub

A．0
B．25
C．50
D．100

单项选择题

编写如下两个事件过程。
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是

A．A
A
B．a
A
C．A
a
D．a
a

单项选择题

下面程序段执行结果为
x=Int(Rnd()+4)
Select Case x
Case 5
Print"excellent"
Case 4
Print"good"
Case 3
Print "pass"
Case Else
Print "fail"
End Select

A．excellent
B．good
C．pass
D．fall

单项选择题

在窗体中添加一个命令按钮，编写如下程序：
Private Sub Test(p，m，n)
p=p+1：m=m+1：n=n+1
Print "Sub: ";p；m；n
End Sub
Private Sub Command1.Click()
a1=1：b=2：c1=3
Call Test((a，b1+3，(c1))
Print "Main："；a1；b1；c1
End Sub
程序运行后，输出结果为

A．
Sub： 2 6 4
Main： 2 6 4
B．
Sub： 2 6 4
Main： 2 6 4
C．
Sub： 2 6 4
Main： 1 2 3
D．
Sub： 2 6 4
Main： 2 2 3

单项选择题

阅读程序：
Function Fun( a As Integer)
Static c
b=0:b=b+2:c=c+2
F=abc
End Function
Private Sub Commandl _ Click( )
Dim a As Integer
a=2
For i = 1 To 2
Print Fun (

A．;
Next
End

Sub过程与Function过程最根本的区别是

你可能感兴趣的试题

在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为 For i=1 To 3 For j=1 To 3 For k=1 To 2 x=x+3 Next k，j，i Text1.Text=str(x)

在计算机中，算法是指

数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及

开发大型软件时，产生困难的根本原因是

下面不属于软件设计原则的是

下列选项中，不属于模块间耦合的是

以下不属于对象的基本特点的是

Sub过程与Function过程最根本的区别是

在文本框中，当用户键入一个字符，能同时引发的事件是

如果准备读文件，打开顺序文件“text.dat”的正确语句是

要使文本框可输入多行文字，要更改的默认选项是

下面说法不正确的是

以下事件过程可以将打开对话框的标题改为“新时代”的是

表达式Right("Beijing"，4)的值是

开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做

Visual Basic程序设计采用的编程机制是

设有如下声明： Dim x As Integer 如果Sgn(x)的值为-1，则x的值是

以下关于过程及过程参数的描述中，错误的是

下列语句的输出结果为 Print Format$(5689.36，"000，000. 000")

数据库、数据库系统和数据库管理系统之间的关系是

关系模型允许定义3类数据约束，下列不属于数据约束的是

下列SQL语句中，用于修改表结构的是

串的长度是

下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub

下列说法错误的是

以下哪个关键字声明的局部变量在整个程序运行中其值一直保留

单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem ＜＞ n Do While m ＞ n : m--m - n: Loop Do While m ＜ n : n=n - m: Loop Loop Fun =m End Function

在窗体上添加一命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为 Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next Print s End Sub

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下。 private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)As Integer n=3 For i=1 To 5 an(i)=i arrl(n)=2*n+i Next Print arr1(n)；arr(n) End Sub 程序的运行结果为

下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case 4 Print"good" Case 3 Print "pass" Case Else Print "fail" End Select

在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print "Sub: ";p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((a，b1+3，(c1)) Print "Main："；a1；b1；c1 End Sub 程序运行后，输出结果为

阅读程序： Function Fun( a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click( ) Dim a As Integer a=2 For i = 1 To 2 Print Fun (

在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为
For i=1 To 3
For j=1 To 3
For k=1 To 2
x=x+3
Next k，j，i
Text1.Text=str(x)

设有如下声明：
Dim x As Integer
如果Sgn(x)的值为-1，则x的值是

下列语句的输出结果为
Print Format$(5689.36，"000，000. 000")

下列程序运行时输出的结果是
Private Sub Form_Click()
Dim x
x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”)
For i=LBound(a，1)to UBound(a，1)
If Left(a(i)，1)=“天”Then Print a(i)；
Next
End Sub

单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click( )
Print Fun(23, 18)
End Sub
Public Function Fun(m As Integer, n As Integer) As Integer
Do Whilem ＜＞ n
Do While m ＞ n : m--m - n: Loop
Do While m ＜ n : n=n - m: Loop
Loop
Fun =m
End Function

在窗体上添加一命令按钮，名称为Command1，然后为该命令按钮编写如下事件过程，该过程的执行结果为
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)j
j=j10
Next
Print s
End Sub

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下。
private Sub Command1_Click()
Dim arr(5)As Integer，arr1(5)As Integer
n=3
For i=1 To 5
an(i)=i
arrl(n)=2*n+i
Next
Print arr1(n)；arr(n)
End Sub
程序的运行结果为

下面程序段执行结果为
x=Int(Rnd()+4)
Select Case x
Case 5
Print"excellent"
Case 4
Print"good"
Case 3
Print "pass"
Case Else
Print "fail"
End Select

在窗体中添加一个命令按钮，编写如下程序：
Private Sub Test(p，m，n)
p=p+1：m=m+1：n=n+1
Print "Sub: ";p；m；n
End Sub
Private Sub Command1.Click()
a1=1：b=2：c1=3
Call Test((a，b1+3，(c1))
Print "Main："；a1；b1；c1
End Sub
程序运行后，输出结果为

阅读程序：
Function Fun( a As Integer)
Static c
b=0:b=b+2:c=c+2
F=abc
End Function
Private Sub Commandl _ Click( )
Dim a As Integer
a=2
For i = 1 To 2
Print Fun (