发布时间 : 星期五 文章《计算机程序设计A》复习试题(答案)更新完毕开始阅读
109． 下面程序用选择法将数组a中的10个整数按升序排列。算法是：从数组中找出最小的值，
将该数与第1个数交换，这样第1个数组元素是最小的数。再从第2个数开始，找出其后各数组元素中最小的数，将该数与第2个数交换位置，这样第2个数是次小的数。如此重复上述过程，即可将数组排序。请完善以下的程序： Option Base 1
Private Sub Command1_Click( )
Dim a (1 To 10 ) As Integer , i As Integer , j As Integer , k As Integer For i=1 To 10
a ( i ) = Val ( InputBox ( “请输入第a( ” & i & “ ) 个数：”)) Next i
For i = 1 To 9 【60】
For j = i + 1 To 10
If a ( k ) 【61】 a ( j ) Then k = j Next j
Temp = a (i ) : 【62】 : a ( k ) = Temp Next i
For i = 1 To 10 Print a ( i ) , Next i End Sub 【60】（A）k = 0 （B）k = 1 （C）k = i （D）k = j 【61】（A）= （B）< > （C）< （D）> 【62】（A）a (i) = a (j) （B）a (j) = a (i) （C）a (k) = a (i) （D）a (i) = a (k) 110． 设有程序： Option Base 1
Private Sub Command1_Click() Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 【12】 = arr1(1) For i = 1 To 8
If arr1(i) > Max Then 【13】 Next i
Print \最大值是: \End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
111． 下面程序是从键盘上输入一个字符串，把该字符串中的大写字母转换成小写字母，输出到
文件Ks61.dat中，然后从该文件中读出字符串并显示出来。请完善下面的程序： Private Form_Click( )
Dim Str1 As String * 50 , Str2 As String , FileNo As Integer
《计算机程序设计A》期末复习题（答案） 第 13 页 共 35 页
FileNo = 【63】
Open “d:\\Vb2003Ks\\Ks61.dat” For 【64】As FileNo Str1 = InputBox ( “请输入一个字符串：” ) Str1 = Lcase ( Str1 ) Seek #FileNo , 1 Put #FileNo, , Str1 【65】#FileNo, 1
Str2 = Input (【66】, #FileNo ) Print Str2 End Sub 【63】（A）Free （B）File （C）FreeFile （D）FileFree 【64】（A）Input （B）Output （C）Random （D）Binary 【65】（A）Loc （B）Lof （C）Eof （D）Seek 【66】（A）Len ( Str1 ) （B）Len ( Str2 ) （C）StrLen ( Str1 ) （D）StrLen (Str2)
112． 以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框
Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = \
Open \【14】 As #1 Do While 【15】 Input #1, inData
Text1.Text = Text1.Text & inData Loop Close #1 End Sub
113． 在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程： Private Sub Form_Load( ) Text1.Text = “ ” Text1.SetFocus For i = 1 to 10 Sum = Sum + i Next i
Text1.Text = Sum End Sub
程序运行后，输出结果为（ 【67】 ）
（A）在文本框Text1中输出55 （B）在文本框Text1中输出0 （C）在文本框Text1中输出不定值 （D）出错
114． 在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程： Private Sub Form_Load( ) List1.AddItem “123 ” List1.AddItem “456 ” List1.AddItem “369”
List1.AddItem “789 ” Text1.Text = “ ” End Sub
《计算机程序设计A》期末复习题（答案） 第 14 页 共 35 页
Private Sub List1_DblClick( ) a = List1.Text
Print a + Text1.Text End Sub
程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果（ 【68】 ） （A）617 （B）248369 （C）369248 （D）0 115． 在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为 Label1、
Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮\计算\时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是
（A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)) End Sub
（B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value End Sub
（C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2 End Sub
（D）Private Sub Command1_Click()
Label3.Caption = HScroll1. Text * HScroll2.Text End Sub
116． 阅读下面程序：
Public Sub xy ( a As Integer , b As Integer ) Dim t As Integer Do
t = a Mod b a = b : b = t Loop While t Print a End Sub
用Call xy (16 , 40 )调用此通用过程后，输出结果为（ 【69】 ） （A）4 （B）8 （C）16 （D）32
117． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
《计算机程序设计A》期末复习题（答案） 第 15 页 共 35 页
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n \\ 3 Next n Print n End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是 （A）15 （B）18 （C）21 （D）24 118． 以下语句的输出结果是（ 【70】 ） a = “BeiJing” b = “ShangHai” Print a;b
以下结果中，“ □ ”表示空格：
（A）BeiJing□ShangHai （B）BeiJingShangHai （C）BeiJingShangHai□ （D）BeiJing□ShangHai□ 119． 下面程序共执行了（ 【71】 ）次循环。
Dim Intsum As Integer , i As Integer , j As Integer i = 1 : j = 1 Do Do
Intsum = Intsum + j j = j + 2 Print j;
Loop Until j > 3 i = i + 1
Loop Until i > 11 Print Intsum
（A）10 （B）11 （C）12 （D）13 120． 下列程序执行后，变量x的值为（ 【72】 ） Dim a , b , c , d , x As Single a = 200 : b = 100 : c = 500 If b > a Then
d = a : a = b : b = d End If
If b > c Then x = b
ElseIf a > c Then x = c Else x = a End If Print x
（A）0 （B）100 （C）200 （D）500
121． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim num As Integer num = 1
《计算机程序设计A》期末复习题（答案） 第 16 页 共 35 页