期末复习试题一~四
有参考答案-海文库
全站搜索：
您现在的位置：&>&&>&院校资料
期末复习试题一~四
有参考答案
试题一一、单选题? 一个完整计算机系统应包括___(1)____。(A) 主机、键盘、和显示器
(B)硬件系统和软件系统(C) 主机和其他外部设备
(D) 系统软件和应用软件? 打印机属于计算机部件中的___(2)___。(A) 输出设备
(B) 输入设备
(C) 存储设备
(D) 缓冲设备 ? 下列表示存储容量的数据中，____(3)____是最大的。(A)20480 KB
(B) 1.44 MB
(D)4865723 Byte ? 在计算机内部能够直接执行的程序语言是___(4)____。(A)数据库语言
(B)高级语言
(C)机器语言
(D)汇编语言? 下列叙述正确的是___(5)____。(A)程序设计就是编制程序
(B)程序的测试必须由程序员自己去完成(C)程序经调试改错后还应进行再测试
(D) 程序经调试改错后不必进行再测试 ? 以下叙述中错误的是___(6)___。(A)Visual Basic 是事件驱动型可视化编程工具(B)Visual Basic应用程序不具有明显的开始和结束语句(C)Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(D)Visual Basic中控件的某些属性只能在运行时设置? 以下不属于VB工作模式的是___(7)___模式。(A) 编译
(D) 中断? 以下语句的输出结果是___(8)___ 。Print Format $(32548.5,“000,000.00”)(A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50? 若要使某可见控件获得焦点，则可使用___(9)_____方法来实现。1
(A) Refresh
(B) SetFocus
(D) GotFocus? 在下列说法中，正确的是___(10)___。(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中不能进行多项选择(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D) 复选框的Value属性值为布尔型? 执行以下程序段,输出的结果为___(11)___。a$=&abbacddcba&For i=6 To 2 Step -2x=Mid(a,i,i):
y=Left(a,i)z=Right(a,i):
z=UCase(X & Y & z)Next iPrint z(A) ABA
(B) BBABBA
(C) ABBABA
(D) AABAAB? 控件在窗体上的位置是由___(12)___属性确定的。(A) Width和Height
(B) Top和Left
(C) Width和Left
(D) Top和Width? 关于Name属性，以下叙述中___(13)___是正确的。(A) 窗体的Name属性指定窗体的名称，用于标识一个窗体。(B) 窗体的Name属性用于设置显示在窗体标题栏的文本。(C) 可以通过代码在程序运行中改变某个对象的Name属性值。(D) 对象的Name属性值可以设置为空。? 下列名称中___(14)___可以作为VB的变量名。(A) mod
(C) tempVal
(D) left? 要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中___(15)___是不正确的。(A) Max = IIf(x & y, x, y) (B) If x & y Then Max = x Else Max = y2
(C) Max = x (D) If y & x Then Max = yIf y &= x Then Max = y Max = x? 执行以下语句后，a的值为___(16)___Dim a As Integera = 1Do Until a = 100a = a + 2Loop(A) 102
(D)101? 对于语句If a = b Then c = d 的语法分析，___(17)___是正确的。(A) a=b 和 c=d都是赋值语句
(B) a=b是关系表达式，c=d是赋值语句(C) a=b 和 c=d都是关系表达式
(D) a=b是赋值语句，c=d是关系表达式? 运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是__(18)__。Private Sub Command1_Click()Dim a As IntegerStatic b As Integera = a + 5:
b = b + 5Print a, bEnd Sub(A) 5
0 ? 在系统默认的情况下，Dim a(3, 4, 2 To 5)
定义的数组共有___(19)___个元素。(A) 36
(D) 80? 下面的子过程定义语句中没有语法和逻辑错误的是___(20)___。(A) Sub S1(ByVal n%())
(B) Sub S1(n As Integer) As Integer(C) Function S1(ByVal n As Integer)
(D) Function S1%(ByVal S1 As Integer)
? 执行了下面程序后，组合框中数据项的值是___(21)___ 。Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub(A)1 5 6
(D)2 4 6? 设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是__(22)___.(A)List1.List B）List1.ListIndex (C)List1.Index (D)List1. Text? 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j & Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是__(23)__(A) 输出n以内的奇数
(B) 输出n以内的偶数4
(C) 输出n以内的素数
(D) 输出n以内能被j整除的数? 如果要在菜单中添加一个分隔线，则应将其标题属性设置为___(24)_____。(A)=
(D)-? 以下关于文件的叙述中正确的是__(25)__。(A) 一个记录中所包含的各元素的数据类型都是相同的(B) 随机文件中每个记录的长度是固定的(C) Open命令的作用是打开一个已经存在的文件(D) 使用Input # 语句可以从随时机文件中读取数据? 以下定义数组或给数组元素赋值的语句中，正确的是__(26)__。(A) Dim a As Variant
(B) Dim a(10) As Integera=Array(1,2,3,4,5)
a=Array(1,2,3,4,5)(C) Dim a%(10)
(D) Dim a(3),b(3) As Integera(1)=&ABCDE&
a(0)=0 : a(1)=1 : a(2)=2 : b=a? 窗体中有一个命令按钮，编写如下程序，程序运行后，输出结果为___(27)___。 ? Private Sub test(p,m,n)p=p+1: m=m+1: n=n+1Print “Sub:”; nEnd Sub
Private Sub Command1_Click()a1=1: b1=2: c1=3Call test(a1,b1+3,(c1))Print “Main:”; a1; b1; c1End Sub(A) Sub: 2 6
4 (B) Sub: 2
4 (C) Sub: 2 6
4 (D) Sub: 2
4 Main: 1 2
3? 以下语句用于打开一个顺序文件Open&C:\MyFile.txt& For OutPut,但是该语句的一个重要错误是没有___(28)_____。(A) 指定打开方式 (B) 指定文件号 (C) 指定打开文件名 (D) 指定文件类型? 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序：Private Sub Form_Load()Timer1.Enabled=FalseEnd Sub
Private Sub Command1_Click() Timer1.Enabled=True End Sub
Private Sub Timer1_Timer() If Label1.Left&Width Then Label1.Left = Label1.Left + 20 Else Label1.Left=0 End If End Sub程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是___(29)___(A) 标签的移动方向为自右向左(B)单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动(C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动(D)标签按指定的时间时隔移动? 设有如下程序，通过For循环计算一个表达式的值，这个表达式是___(30)____：Private Sub Command1_Click()Dim sum As Double, x As Double6
n = 0For i = 1 To 5x = n / i:
n = n + 1: sum = sum + xNextEnd Sub(A)1+1/2+ 2/3+3/4+4/5
(B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5
(D)1+1/2+1/3+1/4+1/5二、填空题? Visual Basic中有三种类型的模块文件，即类模块、标准模块和___[1]___模块。 ? 将数学式y3?3写成VB表达式，应该是___[2]____。|ab|? 赋值语句：a=123 + MID(&,2)执行后，a变量中的值。 ? Visual Basic提供的对数据文件的三种访问方式为顺序访问方式、___[4]____ 和二进制访问方式。? 执行下列语句序列，显示的结果是___[5]___。a = 2: b = 3: c = 4: d = 5Print 3 & 2 * b Or a = c And b && c Or c & d? 运行下列程序，单击命令按钮，则Text1中显示___[6]___，窗体中显示___[7]___。Private Sub Command1_Click()Dim i As Integer, j As Integer, a(5, 4) As IntegerFor i = 2 To 3For j = 2 To 4a(i, j) = i + jNext jNext i7
Text1.Text = a(3, 2)Print a(3, 1)End Sub? 如下图，窗体上有两个命令按扭C1, C2及一个文本框Text1，当按下C1时，将C2的标题与Text1中的内容交换。C1
C2Private Sub C1_Click()Dim a As StringForm1.Caption = &交换后& a = ___[8]____
Text1.Text = ___[9]____C2.Caption = aEnd Sub
? 请完善以下判断完数的程序。一个数如果恰好等于它的因之和，这个数被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数。如6是一个完数，因为6=1+2+3。Private Sub CmdJudge_Click()Dim a()m = Val(Text1.Text)ReDim a(1) If ___[13]____ Then
Picture1.Print m & &是完数&a(1) = 1
Picture1.P &=&;For i = 1 To UBound(a) - 1Picture1.Print a(i); &+&;Next i 就例8
k = ___[10]___j = 1For i = 2 To m - 1If m Mod i = 0 Thenk = k + i
' 因数和j = j + 1
' 因数个数ReDim ___[11]___ a(j)a(j) = ___[12]____End IfNext I(转右)? 编写程序。在窗体上显示如下图所示的“九九加法表”。___[15]___ ExplicitPrivate Sub Form_Click()Dim i%, j%Print & +
9&For i = 1 To ___[16]____PFor j = 1 To ___[17]____If i + j & 10
___[18]__ Print & &;Print _[19]__;Next j___[20]____Next iEnd Sub? 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序, 通过调用过程Swap
，调换数组中数值的存放 9
位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，??，a(5)与a(6)的值互换。请填空Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = iNextCall Swap(___[21]___)For i = 1 To 10Print a(i);NextEnd Sub? 设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。现要将t2.txt的内容合并到t1.txt 中。例如t1.txt原来内容为&ABCD&, t2.txt原来内容为&1234&，合并后t1.txt的内容将成为“ABCD1234”Private Sub Command1_Click()Open &t1.txt& ____[24]____ As #1Open &t2.txt& For Input As #2Do While Not EOF(2)Line Input #2, s____[25]____LoopCloseEnd Sub Sub Swap(b() As Integer) n = ___[22]___ For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t ___[23]___ Next End Sub三、编程题1． 编写一个自定义函数Gcd(m,n),实现求m和n两个正整数的最大公约数。10
2．在文本框Text1中输入一串字符，用标签Label1显示其中出现频率最高的字母（不区分大小写）及其出现次数。例如：输入“This is a beautiful world.”则输出“使用频率最高的是i，共出现3次。试题二
一、单选题（30分，每小题1分）1、（
）字节称为一个MB。（A） 1024 （B）1000K
（D） 10000K2、计算机硬件系统的五大部件是（
）。（A）CPU、内存储器、输入设备、输出设备、外存储器（B）运算器、控制器、存储器、输出设备、输入设备（C）CPU、总线、存储器、外设、主板（D）主机箱、显示器、音箱、鼠标、键盘3、常用的输入设备有（
）。（A）键盘、鼠标、扫描仪
（B）显示器、键盘、鼠标（C）打印机、扫描仪、键盘
（D）触摸屏、打印机、鼠标4、计算机网络的主要作用是(
)。(A) 数据处理
(B) 信息传输与数据处理(C) 文献查询
(D) 资源共享与信息传输5、二进制数1010等于十六进制数(
(D) B6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句(
)。(A) Option Base 0
(B) Option Explicit
(C) Option Base 1
(D) Option Compare7、下列程序段的执行结果为(
)。J1 = 10J2 = 30If J1 & J2 Then Print J2;Print J1(A)10
108、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（
）(A) x1=&False&
(B) x1='False'
(C) x1=False
(D) x1=#False#9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（(A) Private Sub Text1_LostFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)End Sub (B) Private Sub Text1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)。 11
End Sub(C) Private Sub Text1_SetFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub (D) Private Sub Text1_Change()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub10、设用复制、粘贴的方法建立了一个单选按钮数组Option1，以下对该数组的说法错误的是(
)。(A) 所有单选按钮的Caption属性都是Option1(B) 单选按钮的大小都相同(C) 在代码中访问任意一个单选按钮只需使用名称Option1(D) 单选按钮共享相同的事件过程11、下面过程说明语句中合法的是（
）。(A) Sub f1（ByVal n() As Integer）
(B)Function f1（ByVal n As Integer）(C) Function f1（f1 As Integer） As Integer
(D)Sub f1（n() As Integer）As Integer12、Cls 方法可清除窗体或图片框中的（
）信息。(A) Picture属性设置的背景图案
(B) 在设计时放置的控件(C) 程序运行时产生的图形和文字
(D) 以上都对13、在窗体中右击鼠标能弹出菜单test的是（
）。(A)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)If Button =2 Then
PopupMenu testEnd Sub(B)Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)PopupMenu testEnd Sub(C)Sub Form_Click()PopupMenu testEnd Sub(D)Sub Form_DblClick()PopupMenu testEnd Sub14、下列符号常量的声明中，(
)是不合法的。(A) Const a As Single = 1.1
(B) Const a As Integer = &12&(C) Const a As Double = Sin(1)
(D) Const a = &OK&15、下列程序段的执行结果为(
)。Dim S(9)For i=0 To 912
S(i)=3*INext iPrint S(S(3))(A) 12
(D) 出错16、下列数组声明正确的是（
）。(A) n=5Dim a(1 to n) As IntegerReDim a(1 to 12)(C) Dim a() As SingleReDim a(3 ,4) As Integern=5ReDim a(1 to n) As Integer17、下列控件中，没有Caption属性的是（
）。(A) 框架
(B) 列表框
(C) 复选框
(D) 单选按钮18、下面关于计时器控件（Timer）的叙述中，错误的是（
）。(A) 计时器控件运行时不可见(B) 通过Color属性可设置计时器控件的颜色(C) 计时器控件只有一个事件即Timer事件(D) 计时器的Interval属性值设为0时，计时器无效19、表达式
2 ^ 2 * 5 + 3 Mod 10 \ 3
）。（A）0
(D) 2020、在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为20和100。程序运行后，如果移动滚动条滑块，则在文本框中显示滚动条的当前值。以下程序段中能实现上述操作的是（
(A) Private Sub Hscroll1_Change()Text1.Text=HScroll1.ValueEnd Sub(B) Private Sub Hscroll1_Click()Text1.Text=HScroll1.ValueEnd Sub
(C) Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd Sub (D) Private Sub Hscroll1_Click()Text1.Text=Hscroll1.CaptionEnd Sub13 (B) Dim a(10) As Integer (D) Dim a() As Integer
21、在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Load()Text1.Text = &&Text1.SetFocusFor i = 1 To 5Sum = Sum + iNext iText1.Text = SumEnd Sub上述程序的运行结果是（
）。(A) 在文本框中输出15
(B) 在文本框中输出0(C) 在文本框中输出不定值
(D) SetFocus方法不可在Load事件中使用，所以出错22、下面说法不正确的是(
)。(A) 滚动条的重要事件是Change和Scroll(B) 框架的主要作用是将控件进行分组，以完成各自相对独立的功能(C) 计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上(D) 组合框中Style属性有三个不同的值，使组合框呈现不同的形式23、以下Case语句中有语法错误的是（
）。(A) Case 0 To 10
(B) Case Is&10 And Is&50(C) Case Is&10
(D) Case 3,5,Is&1024、关于文件操作控件，下列叙述不正确的是（
）。(A) 驱动器列表框（DriveListBox）能显示系统中所有有效磁盘驱动器(B) 从驱动器列表框中选择驱动器能变更系统当前的工作驱动器(C) 使用通用对话框(CommonDialog)中的“打开文件”对话框选择文件名，无需编程即可自动地打开所选文件(D) 通过编写适当的程序代码可以使文件列表框（FileListBox）中显示当前目录列表框(DirLIstBox)中选中的文件列表25、从磁盘上读入一个名为“c:\filel.txt”的顺序文件，下面程序段正确的是（
）。(A) Open &c:\filel.txt& For Output As # 2 (B)
Open c:\filel.txt For Input As # 1(C) F=&c:\filel.txt&Open &F& For Input As # 2 (D)
F=&c:\filel.txt&Open F For Input As # 126、改变下列（
）属性可设置控件的位置，。(A) Height 与 Width
(B) Height 与Top
(C) Left 与 Top
(D) Left 与 Width27、在Visual Basic 中，(
) 关键字用于注释语句。(A) Rem
(D) Loop28、X是一个数值型变量，表达式Int（X / 2）= X / 2 的作用是（
）。(A) 用于测试X是否偶数
(B) 返回一个整数(C) 返回一个奇数
(D) 用于测试X是否整数14
29、执行了下面程序后，组合框中显示的数据项是（
）。Private Sub Form_Load()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub(A)1 5 6
(D)2 4 630、打开顺序文件语句中，关键字Append表示把新数据添加到(
)。(A) 文件首
(B) 文件尾
(C) 文件中间
(D) 随机位置
二、填空（50分，每空2分）1、设有如下程序段：a$=&ShanghaiBeijing&：b$=Mid(a$,InStr(a$,&i&)+1)执行上面的程序段后，变量b$的值为__【1】
_。2、设a=4，执行x = IIf(a&6,-2,0)后，x的值为【2】
_。3、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load()For i=1 To 100If i Mod 7 =0 Then【3】End IfNext iEnd SubPrivate Sub Command1_Click()Sum = 0For i = 1 To 【4】Sum = Sum + 【5】Next i【6】End Sub4、用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空：Option Base 115
Private Sub Command1_Click()Dim arr1%, Max%arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)【7】For i = 1 To 8If arr1(i) & Max Then 【8】【9】Print &最大值是: &; MaxEnd Sub5、设在窗体上有一个文本框Text1，一个标签数组Label1,共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。Private Sub Labell_Click(Index As Integer)Text1.Text=
【10】End Sub6、下列程序的功能是：当x&47时，y=10 x；当47≤x≤100时，y=0.7x；当x&100时，没有意义。请填空。 Private Sub Command1_Click()Dim x As Singlex=InputBox(&请输入x的值！&)【11】Case Is & 47【12】Case 47 To 100y=0.7 * xCase ElsePrint &输入的数据出界！&End SelectPrint x, yEnd Sub8、表达式Fix(-32.68)+Int(-23.02)的值为 【13】9、下面的程序用“冒泡”法将数组a中的数组元素按升序排列，请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim aa=Array(67, 45, 24, 52, 49, 37, 87, 58, 23, 82)For i=【14】For j=【15】If a(j) 【16】t=a(j)16
【17】a(j＋1)=tEnd IfNext jNext iFor i= 【18】Print a(i);Next iEnd Sub11、下列程序运行时，当单击窗体后，从键盘分别在文本框Text1、Text2输入整数m、n，求解m、n的最大公约数，并将结果显示在窗体上。请将程序补充完整Private Sub Form_click()m = 【19】n = Val(Text2.text)P &和&; &的最大公约数是：&;【20】End SubPrivate Function gys(n, m)p = n Mod mIf
p=0 Then【21】Else【22】End IfEnd Function12、在窗体模块中编写以下Sub过程和窗体Click事件过程：Private Sub suba(x As Integer,y As Integer)Dim t As Integert =x: x=y : y=tEnd SubPrivate Sub Form_Click()Dim a As Integer,b As Integera =10: b =20Call suba(a,b)Pb;Call suba(b,a)PbEnd Sub当程序运行时，在窗体中单击鼠标左键，则程序的输出结果是
13、以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。Private Sub Command1_Click()Dim Data As StringText1.Text = &&Open &.\smtext1.txt& 【24】Do While 【25】Data = Input(1，#1)Text1.Text = Text1.Text & DataLoopClose #1End Sub
三、编程题（20分，每小题10分）1、 编写程序，分别统计出文本框Text1中输入的字符串中所包含的字母、数字和其它字符的个数，并将结果显示在窗体上。
2、 编写一个函数，求任意正整数k的阶乘k! = 1 * 2 *? * k。再编写一段事件过程，用户输入两个整数n和m（n≥m），求组合数。试题三一、单选题（30分，每小题1分）
下列软件中属于系统软件的是___(1)____。(A) Windows2000
(C) 杀毒软件
(D) Word显示器属于计算机部件中的___(2)___。(A) 输出设备
(B) 输入设备
(C) 存储设备
(D) 打印设备
下列表示存储容量的数据中，____(3)____是最大的。(A)20480 KB
(B) 1.44 MB
(D)4865723 Byte下列名称中只有____(4)____可以在WINDOWS中作为文件名使用。(A) TV??.EXE
(B) Windows:Program.Files.TXT(C) Word.TXT
(D) 1234*.COM二进制数1011等于十六进制数____(5)____。(A) 10
(D) B以下关于VB的说法错误的是___(6)___。(A) 标准模块附属于窗体(B) 标准模块用来声明全局变量和定义一些通用的过程(C) 相对于传统的编程语言，VB最突出的特点是可视化编程(D) VB的窗体设计窗口主要是用来建立用户界面
编写一个VB工程需要使用或保存多种类型的文件。以下名称中___(7)___不是VB编程中会用到的文件扩展 18
名。(A) BAS
(D) FRM下列控件中___(8)___不可设置焦点。(A) 文本框
(B) 列表框
(C) 命令按钮
设置文本框Text1可以有光标但不能编辑，应使用___(9)___语句。(A) Text1.Locked = True
(B) Text1.Locked = False(C) Text1.Enabled = False
(D) Text1.Visible = False在一个窗体中有一个命令按钮和若干个文本框。当用户在文本框中输入数据时，只要按下回车就相当于单击了命令按钮。要完成这一功能，应将命令按钮的___(10)___属性设置为True。(A) Value
(B) Default
(C) Visible
(D) Enabled执行语句
Print String(5, &AB&) ，显示的结果是___(11)___。(A) ABABABABAB
(D) ababababVB语句中使用___(12)___字符表示注释部分。(A) '
(D) _要使TextBox控件中显示多行文本，应设置其___(13)___属性值为True。(A) ScrollBars
(B) MaxLength
(C) MultiLine
(D) Locked关于Name属性，以下叙述中___(14)___是正确的。(A) 窗体的Name属性指定窗体的名称，用于标识一个窗体。(B) 窗体的Name属性用于设置显示在窗体标题栏的文本。(C) 可以通过代码在程序运行中改变某个对象的Name属性值。(D) 对象的Name属性值可以设置为空。
下列名称中___(15)___可以作为VB的变量名。(A) mod
(C) tempVal
(D) left关于全局变量，正确的描述是___(16)___。(A) 全局变量只能在标准模块中声明(B) 全局变量可以标准模块或窗体的“通用”部分(C) 没有显式声明过的变量，系统将默认为全局变量(D) 由于全局变量可以在各个模块中的访问，所以程序中应尽可能地使用全局变量
要求出变量x和y中较大的一个并保存在变量Max中，下面的程序段中___(17)___是不正确的。(A) Max = IIf(x & y, x, y) (B) If x & y Then Max = x Else Max = y
(C) Max = xIf y &= x Then Max = y (D) If y & x Then Max = yMax = x
设x和y都是数值型变量，使用___(18)___组语句可将x和y的值互换。(A) x = y: y = x
(B) x = x + y: y = x - y: x = x - y(C) x = x + y: x = x - y: y = x C y
(D) x = (x + y) / 2: y = (x - y) / 2对于语句If x = 10 Then y = 100 的语法分析，___(19)___是正确的。(A) x=10 和 y=100都是赋值语句
(B) x=10是关系表达式，y=100是赋值语句(C) x=10 和 y=100都是关系表达式
(D) x=10是赋值语句，y=100是关系表达式19
运行下列程序段，单击两次命令按钮，则第二次单击时窗体中显示的结果是__(20)__。Private Sub Command1_Click()Dim a As IntegerStatic b As Integera = a + 5b = b + 5Print a, bEnd Sub(A) 5
在系统默认的情况下，Dim a(3, 4, 2 To 5)
定义的数组共有___(21)___个元素。(A) 36
(D) 80下面的子过程定义语句中没有语法和逻辑错误的是___(22)___。(A) Sub S1(ByVal n%())(B) Sub S1(n As Integer) As Integer(C) Function S1(ByVal n As Integer)
(D) Function S1%(ByVal S1 As Integer)引用列表框List中最后一项的文本应使用___(23)___.(A) List1.List(List1.ListCount)(B) List1.List(List1.ListCount-1)(C) List1.List(ListCount)
(D) List1.ListListCount-1如果需要在单击滚动条两端的箭头时滚动条的值改变量为10，则应设置其__(24)__属性值为10。(A) Value
(B) SmallChange
(C) LargeChange
(D) Max下列关于VB中编辑菜单的叙述，错误的是__(25)__。(A) 同一窗体中不允许出现标题相同的菜单项(B) 在定义菜单时使用符号“&”加字母表示菜单项的热键(C) 程序运行中，可以重新设置菜单的Enabled属性(D) 弹出式菜单也在菜单编辑器中定义
VB中默认的坐标原点在窗体的__(26)__。(A) 左上角
(B) 左下角
(D) 底部中点
以下关于文件的叙述中正确的是__(27)__。(A) 一个记录中所包含的各元素的数据类型都是相同的(B) 随机文件中每个记录的长度是固定的(C) Open命令的作用是打开一个已经存在的文件(D) 使用Input # 语句可以从随机文件中读取数据
执行下面的程序段后，显示 x 的值为___(28)___。x = 5For I = 1 To 20 Step 2
x = x + I \ 5Next IPrint x(A) 21
(D) 24窗体中有一个命令按钮，编写如下程序：Private Sub test(p,m,n)p=p+1: m=m+1: n=n+1Print “Sub:”; nEnd SubPrivate Sub Command1_Click()a1=1: b1=2: c1=3Call test(a1,b1+3,(c1))Print “Main:”; a1; b1; c1End Sub
程序运行后，输出结果为___(29)___。(A) Sub: 2 6
4Main: 2 6
4 (B) Sub: 2
(C) Sub: 2 6
3 (D) Sub: 2
4设置文本框的___(30)___，可以使文本框中输入密码时只显示#号。(A) Text属性值为#
Caption属性值为#(C) Passwordchar属性值为#
Passwordchar属性值为True
二、填空题（50分，每空2分）
Visual Basic中有三种类型的模块文件，即类模块、标准模块和___[1]___模块。
语句 Dim a, b As Date 定义的变量a的类型为___[2]___，b的类型为___[3]___。
执行如下程序段，在输入对话框中分别输入421和356，显示的结果是___[4] ___。a = InputBox(&请输入一个整数&)
'输入421b = InputBox(&请输入一个整数&)
Print a + b单击命令按钮Command1执行下列程序段，则文本框Text1中显示___[5]
___，Text2中显示___[6] ___。 Private Sub Command1_Click()Text1.Text = &VB Programming&Text2.Text = Text1.TextText1.Text = &How are you!&End Sub21
对应的VB表达式为___[7]___。
执行下列语句序列，显示的结果是___[8]___。a = 2: b = 3: c = 4: d = 5Print 3 & 2 * b Or a = c And b && c Or c & d
下面两个语句连续执行时显示的结果是___[9]___。a$ = &4567132&Print Val(Mid(a, 2, 3) + Right(a, 3))
运行下列程序，单击命令按钮，则文本框Text1中显示___[10]___，Text2中显示__[11]___。Private Sub Command1_Click()Dim a As Integer, n As Integera = 1:
n = 0Do While a & 20a = a * 3n = n + 1LoopText1.Text = aText2.Text = nEnd Sub
运行下列程序，单击命令按钮，则Text1中显示__[12]_，窗体中显示__[13]__。Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 10 Step 3j = iNext iText1.Text = jPrint iEnd Sub
运行下列程序，单击命令按钮，则Text1中显示___[14]___，窗体中显示___[15]___。 Private Sub Command1_Click()Dim i As Integer, j As Integer, a(5, 4) As IntegerFor i = 2 To 3For j = 2 To 422
a(i, j) = i + jNext jNext iText1.Text = a(3, 2)Print a(3, 1)End Sub
下面这段程序用于产生一个8位整数x，统计其中数字0~9分别出现了多少次。例如：产生随机数 ，则显示如图的结果。填空完成程序：Dim x As ___[16]___, a(___[17]__) As IntegerDim s As String, i As Integer, n As Integerx = Int(Rnd * ___[18]___ ) + Print xs = Trim(x)For i = 1 To 8n = Val(Mid(s, i, 1))a(n) = a(n) + 1NextFor i = 0 To 9P ; &:&; __[19]____Next i
运行下面这段程序，在文本框Text1和Text2中分别输入一串字符，单击命令按钮时，在Text1中删除掉Text2中的内容。例如Text1中输入“ABCDEFG”，Text2中输入“CD”，则单击Command1时，Text1中显示“ABEFG”。 填空完成程序。
Sub DeleStr(S1$, S2$)Dim n%Don = InStr(S1, S2)If n = 0 Then __[20]____S1 = Left(S1, n - 1) + __[21]__LoopEnd SubPrivate Sub Command1_Click()Dim x$, y$x = Text1.Text23
y = Text2.TextCall __[22]___Text1.Text = xEnd Sub
设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。现要将t2.txt的内容合并到t1.txt 中。例如t1.txt原来内容为&ABCD&, t2.txt原来内容为&1234&，合并后t1.txt的内容将成为“ABCD1234”Private Sub Command1_Click()Dim s$Open &t1.txt& ____[23]____ As #1Open &t2.txt& For Input As #2Do While Not EOF(2)Line Input #2, s____[24]____Loop____[25]____End Sub
三、编程题（20分，每题10分）1．在窗体中有一行文字，运行该窗体时每0.1秒自动向右移动40twips。单击窗体则停止移动。请写下完成该窗体功能所需要的控件、主要的属性设置和主要事件过程代码。2．编程求组合数
。要求用户输入两个正整数n & m，计算并显示结果。当输入的数据不符合要求时给出错误提示。界面形式不限。试题四一、单选题（30分，每题1分）1． 计算机中采用二进制，是因为______。(A)可降低硬件成本
(B)两个状态的系统具有稳定性(C)二进制的运算法则简单
(D)上述三个原因2．我们通常说的U盘属于计算机部件中的______。(A) 输出设备
(B) 输入设备
(C) 存储设备
(D) 打印设备3. 下列表示存储容量的数据中，________是最小的。(A)20480 KB
(B) 1.44 MB
(D)4865723 Byte4. 一个完整计算机系统应包括_______。(A) 主机和显示器
(B)硬件系统和软件系统(C)系统软件和应用软件
(D) 内存和外存5. 下列执行速度最快的程序语言是_______。(A)数据库语言
(B)高级语言
(C)机器语言
(D)汇编语言6. 一只白色的足球被踢进球门，则白色、足球、踢、进球门是______。24
(A) 属性、对象、方法、事件
(B) 属性、对象、事件、方法(C) 对象、属性、方法、事件
(D) 对象、属性、事件、方法7. 以下叙述中正确的是________。(A)窗体的Name属性指定窗体的名称，用来标识一个窗体(B)窗体的Name属性的值是显示在窗体标题栏中的文本(C)可以在运行期间改变对象的Name属性的值(D)对象的Name属性值可以为空8. 在VB中，保存一个工程至少应保存两个文件，这两个文件分别是______。(A)文(C)窗体文件和标准模块文件
(D)类模块文件和工程文件9. 在下列说法中，正确的是______(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中不能进行多项选择(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D)复选框的Value属性值为布尔型10.当一个复选框被选中时，它的Value属性的值是______(A) 3
(D) 011.计算结果为0的表达式是_______(A)Int(2.4)+Int(-2.8)
(B)Cint(2.4)+Cint(-2.8)(C)Fix(2.4)+Int(-2.8)
(D)Fix(2.4)+Fix(-2.8)12.可以惟一标识控件数组中的每一个控件属性的是_______(A)Name
(B)Caption
(D)Enabled13. 下列变量名中，合法的变量名是_______。(A)m24
(D)m+n14. 若有语句”Dim Flag As Boolean”，则下面赋值语句正确的是________。(A) Flag =&True&
(B) Flag='True'
(C)Flag=Ture
(D)Flag=True15. 下列叙述不正确的是________。(A)InputBox函数返回值为字符型
(B)MsgBox函数返回值为所单击按钮的键值(C) MsgBox语句没有返回值
(D) MsgBox语句返回值为所单击按钮的键值16.
若要在Text1的光标(焦点)移动到其它控件时进行合法性判断，则可使用____事件来实现。(A) Refresh
(B) SetFocus
(C) LostFocus
(D) GotFocus17.一般情况下，控件的大小是由______属性确定的(A) Width和Height
(B) Top和Left
(C) Width和Left
(D) Top和Width18．以下能判断是否到达文件尾的函数是______(A)BOF
(D)EOF19．下列过程语句说明合法的是________。(A)Sub f1(ByVal n() As Integer)
(B)Sub f1(n() As Integer)As Integer(C)Function f1(f1 As Integer) As Integer
(D)Finction f1(ByVal n As Integer)25
20.要在文本框Text1中显示列表框List1中最后一个项目的正确语句是______。(A)Text1.Text=List1.List(ListCount-1)
(B)Text1.Text=List1.List(0)(C)Text1.Text=List1.List(List1.ListCount-1) (D)Text1.Text=List1.ListIndex21．设组合框Combo1中有5个项目，则以下能删除最后一项的语句是________。(A)Combo1.RemoveItem Text
(B)Combo1.RemoveItem 5(C)Combo1.RemoveItem 4
(D)Combo1.RemoveItem Combo1.Listcount22．在通用声明代码中有以下语句：Option Base 1Dim a (4,-3 to 3) As String则该数组有____个元素。(A) 28
(D) 3023.要使菜单项能通过按键盘上的Alt键及K键打开，应在菜单编辑器中设置____。(A) 在“名称”栏中“K”字符前加上“&”
(B) 在“标题”栏中“K”字符前加上“&”(C) 在“名称”栏中“K”字符后加上“&” (D) 在“标题”栏中“K”字符后加上“&”24. 以下Case语句中错误的是____。(A) Case 0 To 10
(B) Case Is&10(D) Case 3,5,Is&10
(C) Case Is&10 And Is&5025．假定有以下两个过程,则以下说法中不正确的是________。Private Sub PPP (a As Single, b As Single)a = a + bb = a + bPrint a, bEnd SubPrivate Sub Form_Activate( )x=18Call PPP (x,(x))Print xEnd Sub(A)形参是 a 和b ，两个实参x和(x)允许重名(B)形参是 a 和b ，实参(x)表示是传值调用(C)形参是 a 和b ，实参x表示是传址调用(D)Print a, b 输出的值分别为36，3626．若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），可使用 ______ 控件将它们分隔开。
① TextBox
② PictureBox
④ Frame(A) ①或②
(B) ②或③
(C) ②或④
(D) ③或④27.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()26
CommonDialog1.FileName =&&CommonDialog1.Filter=&All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt&CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=&VBTest&CommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是______(A)该对话框被设置为“打开”对话框
(B) 在该对话框中指定的默认文件名为空(C)该对话框的标题为VBTest
(D)在该对话框中指定的默认文件类型为文28.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是______。(A) 4
(D) 729．在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程,该事件过程的功能是____Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j & Sqr(i) Then Print iNext iEnd Sub(A) 输出n以内的奇数
(B) 输出n以内的偶数(C) 输出n以内的素数
(D) 输出n以内能被j整除的数30．设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0:
For i = 1 To 5x = n / i:
n = n + 1: sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是_______(A)1+1/2+ 2/3+3/4+4/5
(B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5
(D)1+1/2+1/3+1/4+1/5二、填空题（50分，每空2分）1、设a=6，则执行x=Iif(a&5,-1,0)后，x的值为_____[1]__________。
2、Visual Basic提供了三种对数据文件的访问方式，它们是顺序访问方式、__[2]____访问方式和二进制访问方式。
3、 赋值语句：a=123 & MID(&,2)执行后，a变量中的值_[3]_____ 。
4、如果有以下程序代码，则输出结果是[4]________。x = 10y = 5Print x ^ 2 &= y ^ 3
5、运行下面的程序，单击窗体后在窗体上显示的内容是_[5]_____；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是__[6]____。Private Sub Form_Click()Dim a As Integer,b As Integera=0: b=0Do While a&=8a=a+2
' A语句b=b+a*a
' B语句LoopPrint a,bEnd Sub
6、运行下面这段程序，在文本框Text1和Text2中分别输入一串字符，单击命令按钮时，在Text1中删除掉Text2中的内容。例如Text1中输入“ABCDEFG”，Text2中输入“CD”，则单击Command1时，Text1中显示“ABEFG”。填空完成程序。
Sub DeleStr(S1$, S2$)Dim n%28
Don = InStr(S1, S2)If n = 0 Then __[7]____S1 = Left(S1, n - 1) + __[8]__LoopEnd SubPrivate Sub Command1_Click()Dim x$, y$x = Text1.Texty = Text2.TextCall __[9]___Text1.Text = xEnd Sub7、找出四位数中的幸运数，并统计幸运数的个数。所谓幸运数是指前两位数的和与后两位数的和相等的四位数。要求：满足条件的幸运数显示在列表框中，幸运数的个数显示在文本框中。Option Explicit
' 该句的作用是: ___[10]____Private Sub Command1_Click()Dim i As Integer, n As Integer, n1 As Integer, n2 As IntegerFor i = 1000 To 9999___[11]____n2 = i Mod 100If sum(n1) = sum(n2) Then___[12]____List1. ___[13]____
CStr(i)End IfNext iText1.Text = nEnd SubPrivate Function sum(s As Integer) As IntegerDim p As Integer, q As Integerp = s \ 10___[14]___sum = p + qEnd Function8、完善程序。将100至150之间的偶数，拆分成两个素数之和(只要一对即可)。子函数过程Prime用于判断一个数是否为素数。Private Function prime(ByVal x As Integer) As Booleanprime = True29
For i = 2 To Sqr(x)If _______[15]_______ Thenprime = __________[16]______________Exit FunctionEnd IfNextEnd FunctionPrivate Sub Form_Click()Dim i%, k%, n%For n = 100 To 150 __________[17]_____________For k = 3 To n / 2If
prime(k) And
__________[18]__________ ThenP &=&;k; &+&; n - kExit ForEnd IfNext kNext nEnd Sub9、下面的程序段用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a()a = ___[19]___ (-2, 5, 24, 58, 43, -10, 87, 75, 27, 83)For i = 1 To
___[20]___ - 1For j = 1 To ___[20]____-i
' 注意，两个[20]空表示填的是同一内容If a(j) & a(j + 1) Thena1 = a(j)a(j) = a(j + 1)a(j + 1) = a1___[21]____Next jNext iEnd Sub10、在C盘根目录下有一数据文件（cj.dat），内容如下：30
，90其中第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。现有程序如下：Dim a(5, 4) As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerOpen &c:\cj.dat& For __[22]___ As #1For i = 1 To 5For j = 1 To 3Input #1, __[23]___Next j__[24]___= a(i, 2) + a(i, 3)Next iSortFor i = 1 To 5For j = 1 To 4Print a(i, j),Next jPrintNext iClose #1End SubPrivate Sub Sort()Dim i As Integer, j As Integer, k As Integer, temp As IntegerFor i = 1 To 4For j = i + 1 To 5If a(i, 4) & a(j, 4) ThenFor k = 1 To
___[25]___temp = a(i, k):
a(i, k) = a(j, k):
a(j, k) = tempNext kEnd IfNext jNext iEnd Sub
三、编程题（20分，每题10分）1、 编写子过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，??，a(5)与a(6)的值互换。31
2、 求Sn=a+aa+aaa+?+aa?a的值，其中a是一个数字。例如：2+22+222+(此时n＝5)，a和n的值由用户通过InputBox输入。
样题一答案一、1-5、BACCC
6-10、CACBC
11-15、BBACD16-20、 CBADC
21-25、BDCDB
26-30、ADBAC二、1、窗体
2、Sqr(y^3+3/abs(a*b))
3、1574、随机访问方式
8、Text1.Text
9、C2.Caption10、1或a(1)
11、Preserve
12、i13、k=m
14、a(i) 或 a(UBound(a))
15、Option16、9
18、then19、i + j
22、Ubound(b) 或 1023、 n = n - 1 或 n = 10 C I
24、For Append
25、Print #1,s
Write #1, s三、1、Function Gcd(Byval m As Integer, Byval
n As Integer) As IntegerDim r As IntegerDor = m Mod nm = nn = rLoop Until r = 0Gcd = mEnd Function括号分代码可以换成蓝色或者黑方框里色的代码。2、Option Base 1Private Sub Command1_Click()Dim A(26) As IntegerDim max As Integers = Text1.TextL = Len(s)For i = 1 To L32
ch = UCase(Mid(s, i, 1))If ch &= &A& And ch &= &Z& ThenIdx = Asc(ch) - Asc(&A&) + 1A(Idx) = A(Idx) + 1End IfNext imax = A(1)For i = 1 To 26If A(i) & max Then max = A(i): x = iNext iLabel1.Caption =&使用频率最高的是& & Chr(x+64) & &，共出现& & max & &次。& End Sub
样题二答案一、1-5、CAADC
6-10、BDCBC
11-15、BCACB 16-20、DBBDA
21-25、DCBCD
26-30、CAABB 二、
【1】”Beijing”_【2】0_【3】List1.Additem i【4】List1.Listcount【5】List1.List(i-1)【6】Text1.Text=Sum【7】Max = arr1(1)【8】Max=arr1(i)
【9】 Next i【10】Label1(Index).Caption【11】Select Case x【12】y=10*x【13】-56【14】1 To 9【15】1 To 10-i【16】& a(j＋1) Then【17】a(j)=a(j+1)33【18】1 To 10【19】Val(Text1.text)【20】gys(n,m)【21】gys=m【22】gys=gys(m,n mod m)【23】20 10 10 20【24】For Input As #1【25】EOF(1)
三、1、Private Sub Form_click() Dim c$,s$,i%,x%,y%,z% S=Text1.textFor I = 1 to len(s)C=Ucase(Mid(s,I,1))If c&=”0” and c&=”9” Then X=x+1ElseIf c&=”A” and c&=”Z” then Y=y+1ElseZ=z+1End ifNext iPrint “字符串中有数字” & x & End Sub
2、Function jc(k%) as long Dim I as integer,s as long S=1For I =1 to kS=s*iNext iJc=s& y &”个；其他字符串”& z &”个。”34 “个；字母”
End functionPrivate sub form_click()Dim n%,m%N=inputbox(“请输入n:”)m=inputbox(“请输入m:”)Print n & “与” & m & “的组合数为：” & jc(n)/(jc(m)*jc(n-m)) End sub
样题三答案一、1-5、AACCD
6-10、ABDAB16-20、ADBBA
21-25、DCBBA
二、[1]窗体模块[2]万能型[3]日期型[4]421356[5] How are you![6] VB Programming[7]sqr(abs(a^2/(b*c)))+exp(2*x)[8]false[9]567132[10]27[11]3[12]10
[13]13[14]5[15]0[16]Integer[17]911-15、BACAC
26-30、ABADC 35
[18][19]a(i) & &次&[20]Exit Do[21]Mid(S1,n+Len(S2))[22]DeleStr(x,y)[23]For Append[24]Print #1,s_[25]Close
三、1、Private sub Form_load()Timer1.Interval = 100End subPrivate Sub Timer1_Timer()Label1.left=label1.left+40End SubPrivate Sub Form_Click()Timer1.Enabled = FalseEnd Sub2、Function jc(n%) as integerDim i as integer,t as integer,s as integer T=1s=1For I = 1 to nS=s*iNext iJc =sEnd functionPrivate sub command1_click()Dim c as integer,n as integer,m as integer N= inputbox(“请输入正整数N：”) M= inputbox(“请输入正整数M：”) If n&m thenmsgbox (“数据出错！”)elseC=jc(n)/(jc(m)*jc(n-m))36
Print n & “,” & m “的组合数为：” & cEnd ifEnd sub
样题四答案一、1-5、CCDBC
6-10、BABCC
11-15、DCADD 16-20、CADAC
21-25、CABCD
26-30、CDBCC 二、
[1]-1[2]随机文件[3]12334[4]False[5]10
120[7]Exit Do_[8]Mid(S1,n+Len(S2))[9]DeleStr(x,y)[10]强制声明变量[11]n1=i\100[12]n=n+1[13]Additem[14]q=s mod 10[15]x mod I = 0[16]False_[17]step 2[18]prime(n-k)[19]Array[20]10[20]10[21]End If[22]Input[23]a(I,j)[24]a(I,4)[25]4
1、Sub swap(a() as integer)Dim i%,n%,t%For I = 1 to n/2T=a(i)A(i)=a(n-i+1)A(n-i+1)=tNext iEnd sub
2、Private sub command1_click() Dim a%,I%,n%,s as long,t as long A=inputbox(“请输入a:”)N=inputbox(“请输入n:”)For I = 1 to nT=t & aS=s+val(t)Next iPrint sEnd sub
样题五答案一、1-5、ACCDA
6-10、CADBC 16-20、CBDCB
21-25、DBABB 二、
[1]2[2]ccccccc[3]8
10[4]4[5]12[6]100 to 999[7](x-100*a)\10[8]x=a^3+b^3+c^311-15、CACBB
26-30、ABBAD 38
[9]End if[10]val(inputbox[11]&[12]Nu=x[13]Nu[14]Nmin[15]UBound[16]Nmin=b(i)[17]ProcMin=Nmin[18]a()[19]int(rnd(31))+50[20]n-i[21]ia(j+1)[22]Form_click()[23]x[24]y=cos(x)[25]&3.1415926
三、1、Private Sub Form_click()Dim a(10) As String, b(10) As SingleDim I As Integer, avg As Single, max As Single, first As String
For I = 1 To 10a(I) = InputBox(&请输入第& & I & &名运动员的姓名：&) b(I) = InputBox(&请输入第& & I & &名运动员的成绩：&)Print &第& & I & &号选手& & a(I) & &的成绩为：& & b(I) Next Ifirst = a(1)max = b(1)PrintFor I = 2 To 10If b(I) & max Thenmax = b(I)first = a(I)End IfNext IPrint &成绩最好的运动员是& & first & &，成绩为：&; max Print39
For I = 1 To 10s = s + b(I)Next Iavg = s / 10Print &所有运动员的平均成绩为：& & avgPrintFor I = 1 To 10If b(I) & avg ThenPrint a(I) & &运动员的成绩低于平均成绩，他的成绩为:& & b(I) End IfNext IEnd Sub2、Private Sub Command1_Click()Dim I as integer,j as integerFor I = 2 to 1000For j = 2 to i-1If I mod j = 0 then exit forNext jIf j = I then list1.additem iNext iEnd subPrivate Sub Command2_Click()Dim n as single,I as integerN =val(inputbox(“请输入一个数正整数：”))If int(n)&&n or n&=0 thenmsgbox=(“你输入的不是正整数！”)N =val(inputbox(“请输入一个数正整数：”))End ifFor I = 2 to n-1If n mod I = 0 then exit forNext iIf I = n thenPrint n & “是素数。”ElsePrint n & “不是素数。”End ifEnd sub
样题六答案一、1- 5: BCCCA
6-10: DBDCB
11-15: CBDAA16-20: CBADC
21-25: AABAB
26-30: ACDBD二、1、(1) 1
2、(2) AAAAAAA
3、(3) 24、(4) 12
5、(5) 306、(6) Function
(7) n(8) JieC=n*JieC(n-1)
(9) End7、(10) Len(s)或Len(Text1.text)
(11) Mid(s,i,1)(12) c&=”Z”
(13) Next i8、(14) ReDim ia(n)
(15) Int(Rnd*(99-10+1))+10 或 Int(Rnd*90)+10(16) n-1
ia(imin)=t9、(18) t
(19) Sx=Sx+t
(21) Loop10、(22) Form_Clik()
(23) X=-3.1415926
(24) y=sin(x)
&3.1415926 三、1、Function Max(a() As Single) As SingleDim iMax%, i%iMax = Lbound(a)For i = Lbound(a)+1 To Ubound(a)If a(i) & a(iMax) Then iMax = iNext iMax = a(iMax)End Function
Private Sub Picture1_Click()Dim x(1 To 10) As SingleFor i = 1 To 10x(i) = Rnd * 100Print &x(& & i & &)=& & x(i);Next iPrintPrint &最大的数组元素是& & Max(x())End Sub2、Dim Pi As Double, I As Long, fuhao%fuhao = 1i = 141Do Until 1 / i &
0.0000001Pi = Pi + fuhao * 1 / Ifuhao = -fuhaoi = i + 2LoopPi = 4 * PiPrint &π=&; Pi样题七答案一、1-5、BDDBB
6-10、DCBDA
16-20、DBCBB
21-25、BADAA 二、
[1]AAAAA[2]顺序文件[3]5[4]9[5]picture1.picture=loadpicture(“d:\pic1.jpg”)[6]x=Int(Rnd*101)+100[7]I mod 8 = 0 then print[8]M[9]1 to 7[10]M=arr(i)[11]Interval[12]Enabled=True[13]Label1.Caption=Time[14]String[15]Append[16]Not EOF(1)[17]Print #2[18]求1+2+??+8的和[19]36[20](Cos(a+b))^2/(3*x)[21]KeyPress[22]List.List(i)[23]MsgBox =_[24]End If[25]Additem11-15、BBBDD 26-30、DCDAD 42
1、Function PF(n%) As DoubleIf n = 1 ThenPF = 1ElsePF = 2 * PF(n - 1)End IfEnd FunctionPrivate Sub Form_Click()Dim s As Double, I As Integer, x As Integer x = 64For I = 1 To xs = s + PF(x)Next IPrint sEnd Sub
2、Private Sub Form_Load()List1.Additem “广州大学”List1.Additem “华南师范大学” List1.Additem “星海音乐院”List1.Additem “中山大学”List1.Additem “广东外语外贸大学” List1.Additem “广州中医药大学” List1.Additem “广东药学院”List1.Additem “华南理工大学” List1.Additem “广东工业大学” List1.Additem “广州美术学院” End SubPrivate Sub Command1_Click()Dim I as integer43For I = List1.ListCount-1 To 0 Step -1 If List1.Selected(i) ThenList2.Additem List1.List(i)List1.RemoveItem iEnd IfNext iEnd Sub
样题八答案一、1-5、ADCAB
6-10、BBBCD
16-20、DACBB
21-25、DAACD 二、
[1]0.5[2]随机文件[3]5_[4]5.6[5]Picture1.Picture = LoadPicture (“ “)[6]Rnd*101+100[7]s=s+x[8]x mod 5 = 0[9]Integer[10]0 To 7[11]k=i[12]False[13]Interval[14]Label1.Caption = Time[15]Input As #1[16]#1,aspect[17]Close[18]BASIC[19](a+b)/(Log(Abs(a))/Log(Exp(1)))[20]9[21]KeyPress_[22]False11-15、CCDDD 26-30、DBDAB 44
[23]n[24]List1.List(i)[25]MsgBox
(“无此人”)
1、Private Sub Form_Click() Dim i%, min%Dim a(10) As Integer For i = 1 To 10a(i) = Int(Rnd * 101) Print a(i);Next imin = a(1)For i = 2 To 10If a(i) & min Then min = a(i) Next iPrintPrint &最小值：& & min End Sub
2、Private Sub Form_Load() VScroll1.min = 2VScroll1.max = 20Label1.Caption = && Label2.Caption = &n=&
End SubPrivate Sub Vscroll1_Change()Dim s As Double, I%, j%, n%, t As Double t = 1Text1.Text = VScroll1.Valuen = Val(Text1.Text)For I = 1 To nt = 1For j = 1 To It = t * jNext js = s + tNext ILabel1.Caption = &1!+…+n! = & & s End Sub46
上一篇： 下一篇：
All rights reserved Powered by
copyright &copyright 。文档资料库内容来自网络，如有侵犯请联系客服。}