End Sub
Private Sub TestFunc(i As Long)
Dim OUT As Integer OUT = FreeFile
Open App.Path & \ Print #OUT, i Close #OUT End Sub 二、
'题目：求二维数组中最大元素及其所在的行和列
' 并将最大值存入变量Max中，将最大值的行位置存入 ' row中，列位置存入变量column中.
'------------------------------------------------- Private Sub Form_Load() Show
Dim a(2, 3) As Integer
Dim I As Integer, J As Integer
Dim max As Integer, row As Integer, column As Integer a(1, 1) = 34: a(1, 2) = 34: a(1, 3) = 43 a(2, 1) = 34: a(2, 2) = 78: a(2, 3) = 12 '********** Begin ********* For I = 1 To 2
For J = 1 To 3
If a(I, J) > max Then max = a(I, J) row = I column = J End If Next J Next I
Print max; row; column
'********** End ************* TestFunc max, row, column End Sub
Private Sub TestFunc(x As Integer, y As Integer, z As Integer) Dim I As Integer Dim s As String Dim l As Long Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile fOut = FreeFile
Open App.Path & \ Print #fOut, x Print #fOut, y Print #fOut, z Close #fIn Close #fOut End Sub
三、'题目：编写函数fun其功能是：根据整型形参m，计算 ' 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m ' 例如：若m=9，则应输出：1.41448412698413
'------------------------------------------------- Private Function fun(m As Integer) As Double
'********** Begin ********* Dim i As Integer For i = 1 To m
fun = fun + 1 / (2 * i) Next i
'********** End *************
End Function
Private Sub Form_Load() Show
Print fun(9) TestFunc
End Sub
Private Sub TestFunc() Dim i As Integer Dim s As String Dim l As Integer Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile
Open App.Path & \ fOut = FreeFile
Open App.Path & \ For i = 1 To 10
Line Input #fIn, a(i) l = Val(a(i))
Print #fOut, fun(l) Next
Close #fIn Close #fOut
End Sub
【控件属性评分】 错误
【控件】VB.CommandButton_Command1 标准答案：Name=Command1 学生答案：Name=
【控件属性评分】 错误
【控件】VB.CommandButton_Command1 标准答案：Caption=扩大 学生答案：Caption=
【事件评分】 错误
【事件】Private Sub Command1_Click()
标准答案： Text1.FontSize = Text1.FontSize * 1.2 学生答案：
【控件属性评分】 错误
【控件】VB.TextBox_Text1 标准答案：Name=Text1 学生答案：Name=
【控件属性评分】 错误
【控件】VB.TextBox_Text1 标准答案：Text=VB程序设计 学生答案：Text=
【控件属性评分】 错误
【控件】VB.CommandButton_Command2 标准答案：Name=Command2 学生答案：Name=
【控件属性评分】 错误
【控件】VB.CommandButton_Command2 标准答案：Caption=缩小 学生答案：Caption=
【事件评分】 错误
【事件】Private Sub Command2_Click()
标准答案： Text1.FontSize = Text1.FontSize / 1.2 学生答案：
【控件属性评分】 错误
【控件】VB.ListBox_List1 标准答案：Name=List1 学生答案：Name=
【事件评分】 错误
【事件】Private Sub List1_Click() 标准答案： Text1.Text = List1.Text 学生答案：
（二）
1．一个对象可以执行的动作与可被对象识别的动作分别被称为(C )。 A.事件、方法 B.过程、事件 C.方法、事件 D.属性、方法
2.下列有关算法的叙述中，(B )是不正确的。 A.算法必须有输出
B.算法中执行的步骤可以无休止的执行下去 C.算法中的每一步操作都必须是可执行的 D.算法中的每一步操作必须含义明确
3.若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是(B )。 A.用鼠标右键单击此按钮 B.按键盘上的回车键 C.用鼠标右键双击此按钮 D.按键盘上的Esc键
4.设有以下定义语句：Dim m, n as Single, d1 as Double, d2 as string 则变量m的类型是( C ) A.单精度型 B.字符串型 C.可变类型 D.双精度型
5.函数Right(\的值是( B ) A.eiji B.jing C.ijin D.Beij
6.表达式Int(91*Rnd+20)的最大值是( D) A.99 B.90 C.10 D.110
7.MsgBox函数的返回值的类型是( C ) A.字符串型 B.布尔型 C.整型 D.日期型
8.以下关于MsgBox的叙述中，错误的是( C ) A.通过MsgBox函数可以设置消息框中显示的图标
B.通过MsgBox函数可以设置消息框中显示的按钮的类型
C.MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 D.MsgBox函数返回一个整数 9.下列语句中正确的是( C )
A.txt1.Text+txt2.Text=txt3.Text B.Command1.Name=cmdOK C.A=InputBox(Hello) D.12Label.Caption=1234
10.语句X=X+1的正确含义是( B ) A.变量X的值与X+!的值相等
B.将变量X的值加1后赋给变量X C.将变量X的值存到X+1中去 D.变量X的值为1
11.下列说法中正确的是(A )。
A.语句Text1.Text = x的含义是将变量x的值显示于文本框Text1中 B.语句Text1.Text = x的含义是将文本框Text1中的内容赋值给变量x
C.语句Text1.Text = x的含义是将文本框Text1中的内容转换为数值型后赋值给变量x D.以上说法都是错误的
12.如果X的值小于或等于Y的平方，则打印“OK”，表示这个功能的单行If语句是(A )。 A.If x <= y ^ 2 Then Print \B.If x <= y ^ 2 Then \C.If x <= y ^ 2 Print \D.If x <= y2 Then Print \ 13.下列语句正确的是( B )。 A.If A>=B Then T=A A=B B=T B.If A>=B Then T=A : A=B : B=T C.If A≥B Then T=A ;A=B; B=T D.If A≥B Then T=A A=B B=T
14.下列循环结构中，窗体上打印出来的循环变量i的值为( A )。 sum = 0
For i = 1 To 100 sum= sum + i Next i Print i
A.101 B.1 C.100 D.2
15.以下循环语句中在任何情况下都至少执行一次循环体的是( A)。 A.Do 循环体 Loop Until <条件>
B.Do While <条件> 循环体 Loop
C.While <条件> 循环体 Wend
D.Do Until <条件> 循环体 Loop
16.在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click(） Dim n% ,b ,t
t = 1 : b = 1 : n = 2 Do
b = b * n t = t + b n = n +1
Loop Until n>9 Print t End Sub
此程序计算并输出一个表达式的值，该表达式是求(C)。
A.10！
B.1！+2！+…+10！ C.1！+2！+…+9！ D.9！
17.使用语句Dim A(1 To 15) As Integer声明数组A之后，以下说法正确的是（B） A.A数组中所有元素值为Empty B.A数组中的所有元素值为0 C.A数组中的元素个数为16个