重庆大学201702批次网上可视化程序设计（VB）A卷
201702批次网上考试可视化程序设计（VB）A卷一 、 单项选择题 (共 12 题、0 / 24 分 )
1、在过程定义中用 ________表示形参的传地址。A、Var B、ByRef C、ByValD、ByValue收藏该题
2、窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的"Frame1"改为汉字"框架"，下列选项中正确的是（ ）。
A、Frame1.Caption="框架" B、Frame1.Name="框架" C、Frame1.Text="框架"
D、Frame1.Value="框架"收藏该题 3、表达x大于10且小于100的关系表达式为（ ）。A、x>10 or x<100
B、10<x<100 C、x>10 and x<100D、10>x<100收藏该题 4、当某个单选按钮处于选中状态时，它的（ ）属性为True。
A、Caption B、Value C、Style D、Checked收藏该题 5、要禁用计时器控件，需要设置为False的属性是（ ）。
A、Enable B、Visibale C、Timer D、Interval收藏该题 6、要使循环体至少执行一次，应使用的循环结构是（）。
A、For……next循环 B、While……wend循环 C、Do……Loop while|until循环
D、do……loop循环收藏该题 7、引用列表框（List1）最后一个数据项应使用的语句是（ ）。
A、List1.List(List1.Listcount ) B、List1.List(List1.Listcount-1)
C、List1.List(Listcount) D、List1.List(Listcount)收藏该题
8、RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置的属性是（
）。A、Max和Min B、SmallChange和LargeChange C、Scroll和Change D、Value收藏该题
9、下列程序运行时，输出星号的行数是（）。Private sub Form_click（） For i＝ 1 to 10 For j＝ 1 to i
Print”＊”； Next j Print Next iEnd SubA、10 B、20 C、50 D、100收藏该题
10、以下关于变量作用域的叙述中，正确的是______。A、 Static类型变量的作用域是它所在的窗体或模块文件 B、全局变量必须在标准模块中声明
C、模块级变量只能用Private关键字声明 D、窗体中凡被声明为Private的变量只能在某个指定的过程中使用收藏该题
11、在文本框Text1中输入“（hello）”，则输出结果为（ ）。Private Sub Text1_KeyPress(KeyAscii As
Integer)Dim count1%If Chr(KeyAscii) = "(" Then count1 = count1 +
1ElseIfChr(KeyAscii) = ")" Then count1 = count1 - 1End IfIf KeyAscii = 13 Then
If count1 = 0 Then Print "左右括号配对"ElseIf count1 > 0 Then Print "左括号多于右括号";
count1; "个" Else Print "右括号多于左括号"; -count1; "个" End IfEnd IfEnd Sub
A、"左右括号配对" B、"左括号多于右括号" C、"右括号多于左括号" D、程序出错收藏该题 12、以下关于复选框的说法，正确的是（ ）。
A、一个窗体上的所有复选框一次只能有一个被选中B、一个容器中的所有复选框一次只能有一个被选中C、在一个容器中的复选框可以同时有多个被选中
D、无论是在容器中还是在窗体中，都不可以同时选中多个复选框收藏该题 二 、 填空题 (共 10 题、0 / 20 分 )
1、 为了保留动态数组中原有的数据不丢失，可以使用带 进行动态定义 。 收藏该题
2、LBound函数的功能是____________。 收藏该题 3、VB中包含________和事件过程两种sub过程。 收藏该题 4、对象的三大要素是
、 和 。 收藏该题 5、改变窗体前景色的属性是 。 收藏该题 6、当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub收藏该题 7、仅当两个操作数均为真时，结果为真；有一个操作数为假，结果为假，这是逻辑运算 规则。 收藏该题
8、数学式写成VB表达式为 ()。 收藏该题
9、函数过程delData()的功能是在有序（升序）的数组a中删除指定的数y，若指定的数y不存在则给出提示信息，其中y通过InputBox函数输入。
Function deldata(b,y%)
Dim m%, i%
m = UBound(b)
deldata = 1
For i = 0 To m
If y = b(i) Then
Next i
If i > m Then deldata = 0: Exit Function
For j = i + 1 To m
Next j
m = m - 1
ReDim Preserve b(m)
End Function
Private SubCommand1_Click()
Dim a(), i%, y%, result%
a = Array(1, 3, 12, 24, 56, 79, 100, 120)
y = Val(InputBox("请输入一个整数：", "输入"))
n = UBound(a)
result = deldata(a, y)
If result = 0 Then
Print "没有找到该数据" & y
Else
For i = 0 To
Print a(i);
Next i
End If
End Sub 收藏该题 10、变量的三要素是 、 、 。 收藏该题 三 、 程序阅读题 (共 6 题、0 / 24 分 )
1、程序代码为：
Private Sub Command1_Click()
Dim i%
For i=1 To 3
Call s4
Next i
End Sub
Static Sub s4()
u=u+1: v=v+1
Print"u="; u, "v="; v
End Sub
程序运行后，单击命令按钮后，在窗体显示的结果是： 收藏该题 2、写出下面程序当输入数据-10080时的执行结果。
Private Sub p(n As Integer)
If (n< 0) Then
Print '-'
n =-n
EndIf
If (n\ 10 > 0) Then
p(n \ 10)
EndIf
Print(n Mod 10)
End Sub
Private Sub Form_Click()
Dim mAs Integer
m =InputBox("请输入一个整数",输入")
p (m)
End Sub 收藏该题 3、程序代码为：
Public sub proc(a%( ))
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I<2
End sub
Private sub command1_click( )
Dim m%,I%,x%(10)
For I=0 to 4 : x(i)=I+1 : next I
For I=1 to 2 : call proc(x) : next I
For I=0 to 4 : print x(i); : next I
End sub
程序运行后，单击命令按钮后，在窗体显示的结果是： 收藏该题 4、写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a+ b
b = a- b
End Sub
Private Sub Form_Click()
Dima%, b%
a =23
b =12
Callf(a, b)
Print"a=" & a; ",b=" & b
End Sub 收藏该题 5、写出下面程序单击窗体时的输出结果。
Option Base 1
Private Sub Form_Click()
Dim arr%(3, 3), s As Integer
For i = 1 To 3
For j = 1 To 3
If j > 1 And i > 1Then
arr(i, j) = arr(arr(i- 1, j - 1), arr(i, j - 1)) + 1
Else
arr(i, j) = i * j
End If
s = s + arr(i, j)
Next j
Next i
Print s
End Sub 收藏该题 6、以下程序的输出结果是（ ）
Dim iAs Integer, a As Integer
Do While i< 20
Do While True
If i Mod 10 = 0 Then
Exit Do
Else
i = i -1
End If
Loop
i = i + 11 : a = a + i
Loop
Print a 收藏该题 四 、 简答题 (共 6 题、0 / 24 分 )
1、VB有哪几种工作模式？ 收藏该题 2、VB有多种类型窗口，若想在设计时看到代码窗口，怎样操作？ 收藏该题 3、叙述建立一个完整的应用程序的过程。 收藏该题
4、将数字串转换成数值用什么函数？判定是否是数字串用哪个函数？取字符串某几个字符使用什么函数？大小写字母转换用什么函数？ 收藏该题
5、哪种数据类型的内存容量较少，且可存300的值？为什么？ 收藏该题 6、简述VB6.0的主要特点。 收藏该题 五 、 程序设计题 (共 1 题、0 / 8 分
)
1、编写一个递归函数将一个正整数n的各位数字从低位到高位分解开，例如123，分解为3 2 1，其中n的值在命令按钮单击事件中用InputBox（）函数输入。
收藏该题
页:
[1]