已选分类
工学计算机科学与技术
1结构推理
如何在记录集内移动、定位、编辑、删除和添加数据?
2
下列程序：
Public Function f(ByVal n/%,ByVal r/%)
If n<>0 Then
f=f(n/r,r)
Print n Mod r;
End If
End Function
Private Sub Command1_Click()
Print f(100,8)
End Sub
运行程序，单击按钮，运行结果是( )，函数过程的功能是( )。
3
从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字
串在第一个字符串中起始位置的函数是。
A、 Left B、 Mid C、String D、 Instr
4判断题
ADO控件可以使用的数据绑定控件有：Label、TextBox、CheckBox、OLE以及DBList、DBCombo和MSFlexGrid。
5
编程，运行时界面如图所示，选中不同单选按钮时在文本框中显示不同的内容。
程序设计题6的窗体界面
6
已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置：
HScroll1.Min:1 HScroll1.Max:10 HScroll1.SmallChange:1
HScroll1.LargeChange:2 HScroll1.Value:5
写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。
Private Sub HScroll1_Change()
Static y As Integer
If HScroll1.Value Mod 2 = 0 Then
y = y + HScroll1.Value
Print "y="; y
End If
End Sub
7
要使一个标签框对象能够显示所需要的文本，应设置该对象的那一个属性的值？
A、 Caption B、 Text
C、 Name D、AutoSize
8判断题
设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字。
9
请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim a(5) As Byte, i As Byte
a(0) = 1
For i = 1 To 5
a(i) = a(i - 1) + i: Print a(i);
Next i
End Sub
10
写出程序运行时单击窗体后的结果。
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 1000
Call Circledemo
Next i
End Sub
Sub Circledemo()
Dim Radius As Single, XPos As Single, YPos As Single
R = 255 * Rnd: G = 255 * Rnd: B = 255 * Rnd
XPos = ScaleWidth * Rnd: YPos = ScaleHeight * Rnd
Radius = ((YPos * 0.9) + 1) * Rnd / 10
Circle(XPos, YPos), Radius, RGB(R, G, B)
End Sub
11判断题
Sub过程中的语句Exit Sub，使控制返回到调用处。
12
下面( )是合法的字符常数
A、ABC$ B、＂ABC＂ C、 ‘ABC’ D、 ABC
13
如下程序，运行的结果是( )，函数过程的功能是( )。
Public Function f(ByVal n/%,ByVal r/%)
If n<>0 Then
F=f (n/r，r)
Print n Mod r;
End If
End Function
Private Sub Command1_Click()
Print f(100,8)
End Sub
14填空题
Select Case结构中测试表达式的值，在其表达式列表中用( )表示。
15
表达式DateDiff（“y”,#12/30/1999#,#1/13/2000#）的结果是
A、1 B、11 C、14 D、99
16判断题
用OUTPUT模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。
17
下面程序第40句共执行了( )次。第41句共执行了( )次。
30 For j = 1 to 12 step 3
40 For k = 6 to 2 step -2
41 Print j，k
42 Next k
42 Next j
18
在VB环境中，工程文件的扩展名是:
A、.frm B、.bas C、.vbp D、.frx
19
在程序中执行Close命令，其作用是
A、关闭当前正在使用的一个文件
B、关闭第一个打开的文件
C、关闭最近一次打开的文件
D、关闭所有文件
20填空题
要设置记录集的当前指针，则需通过( )属性。