 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
VB程序题(程序填空、编程)
下载积分：1000
内容提示：VB程序题(程序填空、编程)
文档格式：DOCX|
浏览次数：101|
上传日期： 08:23:45|
文档星级：
全文阅读已结束，如果下载本文需要使用
 1000 积分
下载此文档
该用户还上传了这些文档
VB程序题(程序填空、编程)
关注微信公众号vb期末理论复习资料-海文库
全站搜索：
您现在的位置：&>&&>&IT认证
vb期末理论复习资料
vb1满分：293分1、单项选择题(本题共计169分)1、能被对象所识别的动作与可执行的活动分别称为对象的________。
(B)A、方法、事件 B、事件、方法 C、事件、属性 D、过程、方法2、一个应用程序_________窗体。
(D)A、只许有一个 B、可以没有 C、应该有两个 D、可包括多个3、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做 ____过程。
(B )A、方法 B、事件 C、调动 D、编译4、以下关于事件的说法，正确的是________。
(A)A、事件是由系统预先定义好的，能够被对象识别的动作B、用户可以根据需要建立新的事件 C、事件的名称是可以改变的，由用户预先定义D、不同类型的对象所能识别的事件一定不相同5、VisualBasic中的工程文件的扩展名是____________。
(D)A、.reg B、.frm C、.bas D、.vbp6、________是接收用户鼠标或键盘输入的能力。当对象具有____________时，可接受用户的输入。
( C )A、事件 B、属性 C、焦点D、对象7、所谓____________就是使某个对象进入活动状态（又称激活）的一种操作或动作。
( A )A、事件 B、属性 C、方法 D、对象8、一只白色的足球踢进球门，则白色、足球、踢、进球门是________。
( B )A、属性、对象、方法、事件 B、属性、对象、事件、方法 C、对象、属性、方法、事件 D、对象、属性、事件、方法 9、VisualBasic是一种面向________的程序设计语言。
( D )A、过程 B、用户 C、方法 D、对象10、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。
( C )A、List1.AddItem“ABC”，List1.ListIndexB、List1.Text=“ABC”C、List1.List(List1.ListIndex)=“ABC” D、前三项均可11、下面所列的控件属性中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是________。
( D )A、List1.ListCount B、Text1.Index C、Dir1.Path D、Label1.Visible12、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。
( D )A、框架控件(Frame)或图象控件(Image) B、组合框(ComboBox)或图象控件(Image)C、组合框(ComboBox)或图片框(PictureBox)D、框架控件(Frame)或图片框(PictureBox)13、以下有关对象属性的说法中正确的是________。
( D )A、对象所有的属性都罗列在属性窗口列表B、不同对象不可能有同名属性 C、不同对象的同名属性取值一定相同 C、menu1.Visible=True D、menu1. Visible = False 19、当对象失去焦点时，将会发生____________事件。
( B )A、GetFocus B、LostFocus C、Focus D、SetFocusD、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。14、用窗体的________属性来设置窗体的标题。
( C )A、Style B、Text C、Caption D、Name15、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入________。
( A )A、- B、+ C、& D、#16、关于窗体Name属性的叙述，正确的是________。
( D )A、窗体Name属性可以具有与别的公共对象相同的名字B、窗体Name属性和变量定义一样 C、窗体Name属性最长可达255个字符D、窗体Name属性不能具有与别的公共对象相同的名字17、窗体有一个方法可以使窗体隐藏但不从内存中卸载，该方法是____________。
( C )A、Show B、Release C、Hide D、Unload18、设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时让该菜单项变灰，应使用的语句是____________。
( B )A、menu1.Enabled=True B、menu1.Enabled=False20、要使文本框能显示多行文字，则需设定它的____________属性为True。
)A、Caption B、PasswordChar C、MultiLine D、Seleted21、将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____________。
)A、文本框中没有内容B、文本框的MultiLine属性值为False C、文本框的MultiLine属性值为True D、文本框的Locked属性值为True 22、当命令按钮的________属性被设置为True时，按[Esc]键与单击该命令按钮的作用相同。
)A、Cancel B、Default C、Style D、Picture23、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。
)A、Name B、Enabled C、Caption D、Interval24、只有当一个对象的________和________属性为True时，它才能获得焦点。 (
)A、E Visible B、V Caption C、V Name D、E Caption25、下列控件中，可以接收焦点的是________。
A、文本框 B、图像框 C、框架 D、形状26、在3种类型的组合框中，只有________才能接收DblClick事件。
)A、下拉式组合框 B、简单组合框 C、下拉式列表框D、下拉式列表框和下拉式组合框 27、在运行过程中要把某控件变灰，应把____________属性设置为False。
)A、Default B、Visible C、Activate D、Enabled28、能够获得一个文本框中被选取文本的内容的属性是____________。
)A、Text B、Length C、SelStart D、SelText29、某些对象有只读属性，如Name属性，这种属性在设计阶段设置，不能在运行期间改变。以下________属性为只读属性。
)A、ControBox B、Enabled C、BorderStyle D、WindowState30、描述X、Y中只有一个小于Z的逻辑表达式是________。
)A、X&Z And Y&Z B、X&Z Or Y&Z C、X&Z Xor Y&Z D、X&Y&Z31、下列语句运行时系统给出错误提示的是________。
- B、Print
&1E2&+8 C、Print
&AB& & 128 D、Print 3=2=432、对于某对象的SetFocus与GotFocus描述正确的是________。
)A、SetFocus是方法，GotFocus是事件B、SetFocus是事件，GotFocus是事件 C、SetFocus是方法，GotFocus是方法 D、SetFocus是事件，GotFocus是方法 33、有应用代码：Text1.Text=&VisualBasic&，其中的Text1、Text和&VisualBasic&分别代表____。
)A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值34、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号________，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。
)A、下划线 B、& C、$ D、@35、在程序中可以通过复选框和单选框按钮的____________属性值来判断它们的当前状态它。
)A、Caption B、Value C、Checked D、Selected36、应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，窗体和命令按钮的Click事件过程名分别为____________。
)A、Form_Click()
Command1_Click B、Frm1_Click()
Command1_Clic C、Form_Click()
Cmd1_Click D、Frm1_Click()
Cmd1_Click 37、在下列关于菜单的说法中，错误的是____________。
)A、每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B、除了Click事件之外，菜单项还能响应其他的如DblClick等事件C、菜单项的捷径键不能任意设置 D、在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择38、在用菜单编辑器设计菜单时，必须输入的项有____________。
)A、快捷键 B、标题 C、索引 D、名称39、将数据项“China”添加到列表框(Listl)中成为第一项应使用____________语句。
)A、Listl.Addltem &China&,0 B、Listl.Addltem &China&,1 C、Listl.Addltem 0,&China& D、Listl.Addltem 1,&China&40、下列控件中，没有Caption属性的是____________。
)A、框架 B、列表框 C、复选框 D、单选按钮41、窗体Form1的名称属性是frm，它的Load事件过程名是_____。
)A、Form-Load B、Form_Load C、frm_Load D、Me_CmdOK42、以下有关对象属性的说法中错误的是____________。
)A、所有的对象都具有Name(名称)属性 B、只能在执行时设置或改变的属性为执行时属性C、对象的某些属性只能在设计时设定，不能使用代码改变D、Enabled属性值设为False的控件对象在窗体上将不可见43、使用____________方法，可以将列表框List1中的所有项删除掉。
)A、List1.Txt=&& B、AddItem C、RemoveItem D、Clear44、对正实数X的第四位小数四舍五入的VB表达式是________。
)A、0.001*Int(x+0.0005) B、0.001*(1000*x+0.5) C、0.001*Int(1000*x+5)D、0.001*Int(1000*(x+0.0005)) 45、设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能正确执行的是________。
)A、Text1=a/b*a B、Text1=a*a/b C、Text1=“200”*a/b D、Text1=a&b&a46、函数Cint(C3.5)，Int(C3.5)，Fix(C3.5)的值分别是________。
)A、-3，C4，C3 B、-4，C4，C3 C、-3，C4，C4 D、-4，C3，C3 47、执行语句&Printformat(,&##,##0.00&)&，正确的输出结果是________。
)A、5459.48 B、5,459.48 C、5,459.478 D、5,459.4748、下列没有类型说明符的变量是_________。
)A、日期型 B、长整型 C、字符串型 D、货币型49、VB表达式Sqr(a+b)^3*2中优先进行运算的是________。
)A、Sqr函数 B、+ C、^ D、*50、下列语句中不能正常执行的是________。
)A、print +32758+10 B、print 5+9=15 C、print &65&+12 D、print &65&&1251、如果一个变量未指明数据类型，那么，VB默认这个变量为______变量。
)A、变体型 B、整型 C、公共D、字符串型52、在窗体Form1上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮（Name属性为Command1），程序如下。执行后结果为___________。Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End SubPrivate Sub Form_load() Text1.Text=&123& Text2.Text=&321& End Sub
)A、444 B、321123 C、123321 D、13223153、要判断&月收入在2000元以上（含2000元）且5000元以下（不含5000元）&的职工，应该使用的逻辑表达式是____________。
)A、M&2000 AND M&=5000 B、M&2000 Or M&=5000 C、M&=2000 AND M&5000 D、M&=2000 Or M&5000 54、下列程序的执行结果是____________。x=C6^2Print Sgn(x)+Abs(x)+Int(x)
)A、C36 B、C1 C、0 D、C7255、下列语句执行后的输出结果是____________。 (一个方格表示一个空格)Wage = 26 Print &工资&; Print Wage
)A、工资□26 B、工资□□26 C、“工资”□26 D、“工资”□□2656、语句Print 4 + 5\6*7/8 Mod 9的值是____________。
)A、4B、5 C、6 D、757、下列____________是合法的VB变量名。
)A、_5a B、我_AB C、5nameD、Use&DASF58、MsgBox函数返回值的类型为____________。
)A、整体数值 B、字符串 C、变体D、数值或字符串59、用于字符串连接的运算符是____________。
)A、& B、+ C、And D、A、B都可以60、表达式(-1)*Sgn(-100+Int(Rnd*100))的值是____________。
)A、随机数 B、0 C、1 D、-161、如果a是一个正实数，对x的第3位小数四舍五入的表达式是____________。
)A、0.01*Int(a+0.005) B、0.01*Int(a+0.05) C、0.01*Int(100*(a+0.005) D、0.01*Int(100*(a+0.05))62、不能正确表示条件“两个整型变量X和Y之一为0，但不能同时为0”的布尔表达式是________。
)A、X*Y=0 And (X&&0 Or Y&&0) B、( X=0 Or Y=0 ) And (X&&0 Or Y&&0) C、Not ( (X=0 Or Y=0) And (X&&0 OrY&&0) )D、X*Y=0 And X+Y&&063、函数Int(Rnd*11)+10的值的范围是____________。
A、[10，20] B、[0，20] C、[10，10] D、[10，11]64、满足“当a的值是偶数时为0，是奇A、x+y&10,x-y&0 B、(x+y&10):(x-y)&0 C、x+y&10 And x-y&0 D、x+y&10 x-y&070、赋值语句：a=123+MID(&,2)数时为1”的要求的表达式是____________。
执行后，a变量中的值是____________。(
)A、a Mod 2 = 0B、Not a Mod 2&&0 C、Not (a Mod 2) D、(a\2*2-a)=065、VisualBasic的一行可以写多条语句，语句之间用____________隔开。
)A、逗号 B、分号 C、顿号 D、冒号66、如果将布尔常量False赋值给一个整形变量，则整型变量的值为____________。
)A、0 B、-1 C、True D、False67、设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a=s:Text1=a的结果相同的有________个。①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a④a=Format(s,”#####”):Text1=a
)A、1 B、2 C、3 D、468、i被j整除的逻辑表达式是________________。
)A、i/j = 0 B、i\j = 0 C、i&&0 D、i mod j = 069、x+y小于10且x-y要大于0的逻辑表达式是________________。
)A、&12334& B、123 C、12334 D、15771、表达式Len(&123程序设计ABC&)的值是____________。
)A、10 B、14 C、20 D、1772、己知A$&&;，则表达式Val(Left(A,4)+Mid(A,4,2))的值为____________。
)A、123456 B、123445 C、8 D、673、\、/、Mod、*四个算术运算符中，优先级别最低的是____________。
)A、\ B、/ C、Mod D、*74、表达式16/4-2^5*8/4 MOD 5/2的值为____________。
)A、14 B、4 C、20 D、275、语句Print &5*20& 输出的结果是________。
)A、&5*20& B、出现错误信息 C、5*20 D、10076、x+y小于10且x-y大于0的逻辑表达式是________。
)A、x+y & 10 Or x-y&0 B、(x+y)&10 : (x-y) & 0 C、x+y & 10 And x-y &0 D、x+y &10 . And. x-y &0 77、在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有____________。可使文本框Text3中显示46。
)A、Text3. Text=Text1. Text & Text2.B、Dim A() As Integer C、Dim A(,) As Integer D、Dim A(1 to n)83、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( ) Dim a As Integer,b As Integer Do While b &100 b=b+5 TextB、Text3. Text=Val(Text1.Text)+Val(Text2.Text)C、Text3. Text=Text1. Text+Text2.Text D、Text3. Text=Val(Text1. Text) &Val(Text2.Text)78、在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型，下列赋值语句中，正确的是____________。
)A、Inta= &333& + &22& B、D=#10/05/01# C、St=5+ &abc& D、Bl=#True#79、以下__________程序段可以实施X，Y变量值的变换.
)A、Y=X:X=Y B、Z=X:Y=Z:X=Y C、Z=X:X=Y:Y=Z D、Z=X:W=Y:Y=Z:X=Y80、语句Print “Int(-13.2)=”;Int(-13.2)的输出结果为__________.
)A、Int(-13.2)=-13.2 B、Int(-13.2)=13.2 C、Int(-13.2)=-13 D、Int(-13.2)=-1481、语句x=x+1的正确含义是__________. (
)A、变量X的值与X+1的值相等 B、将变量X的值存在X+1中去 C、将变量X的值加1后赋给变量X D、变量X的值为182、下列语句中的语句可以用来正确地声明一个动态数组。
)A、Private A(n) As Integera=a+bIf b&20 Then Exit Do Loop Print a,b End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_________。
)A、50 20 B、75 25 C、50 25 D、75 20 84、有如下程序：Private Sub Command1_Click( ) score=65 select Case score Case Is&60 a$=&F& Case 60 To 69 a$=&D& Case 70 To 79 a$=&C& Case 80 To 89 a$=&B& Case else a$=&A& End Select MsgBox a$ End Sub程序运行后，消息对话框中显示的内容为_______。
)A、A B、B C、C D、D 85、下列程序：
Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub运行后输出的结果是__________。
)88、在单击窗体中的按钮Command1第3次后，如下程序打印结果是____。Private Sub Command1_Click( ) Static a AS Integer a = a+1 Select Case aCase 1: Print &欢迎大家& A、1 B、15 C、90 D、12086、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click( ) Static A As Integer Static B As Integer Cls B = 2 B = B+3 A= 3+A print A, B End Sub程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为___________。
)A、3 5 B、6 6 C、9 5 D、3 387、在窗体中添加一个命令按钮，并编写如下程序代码：Private Sub Command1_Click( ) Dim y As Integer y = 0 Do While y&7 y=y+2 Loop MsgBox y End Sub程序运行后，消息对话框中显示__________。
)A、0 B、7 C、8 D、2Case 2 :Print &努力就能成功 Case 3: Print &希望你能通过考试& Case 4: Print &再见& End Select End Sub
)A、“欢迎大家” B、“努力就能成功” C、&希望你能通过考试& D、“再见”89. 下面是计算1~100奇数的和的程序，请补充完整，填空应为_______。 Private Sub Command1_Click()
Dim s As Long, x As Integer
s = 0For x = ____________ Step -2
Print s End Sub
A. 100 To 1
B. 1 To 100
√C. 99 To 1D. 1 To 9990. 下列程序的输出结果是____________。 Dim y As Integer y=10Do While y&&0
y=y-1 LoopPrint &y=&; y(本题1分)
C. y=随机值D. y=C191. 以下程序的输出结果是____________。 Dim i As Integer,a As Integer Do While i&20Do While True
If i Mod 10=0 Then
a=a+i Loop Print a
C. 33D. 1192. 下列程序段的执行结果为____________。x = Int((69 - 60) * Rnd + 60) Select Case x Case Is &= 90
Print &优秀& Case 80 To 89
Print &良好& Case 60 To 79
Print &合格& Case Else
Print &不合格& End Select
√C. 合格D. 不合格93、下面程序的内层循环次数是________。For i=1 TO 3 For j=1 TO i For k=j TO 3 ... Next k Next j Next i
)A、3 B、14 C、9 D、2194、结构化程序设计方法的核心是规定了三种基本结构：________结构、分支结构、循环结构。
)A、条件 B、顺序 C、当型 D、逻辑95、下列循环能正常结束循环的是____________。
)A、i=5 Do i=i+1 Loop Until i&0 B、i=1 Do i=i+2Loop Until i=10 C、i=10 Do i=i+1 Loop Until i&0 D、i=6 Do i=i-2Loop Until i=196、语句If x=1Then y=1，下列说法正确的是____________。
)A、x=1和y=1均为赋值语句 B、x=1和y=l均为关系表达式 C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式97、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3
)A、①② B、①②③ C、③ D、①②③④98、执行下面的程序，单击窗体后在窗体上显示的结果是_______Private Sub Form_Click()
Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = &e& For I = 1 To 2 Str2 = UCase(Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 Str1 = Chr(Asc(Str1) + I) Next I Print Str3 End Sub
)A、EeFF B、eEfF C、EEFF D、eeFF99、用Msgbox &你好&, vbokonly, &Hello&显示的消息对话框窗口的标题是________。
)A、你好 B、vbokonly C、Ok D、Hello100. 执行以下语句后，a的值为____________。 Dim a As Integer a=1Do Until a=100
Loop(本题1分)
√C. 溢出D. 101101、表达式（7\3+1）*(18\5-1)的值是___________.
)A、8.67 B、7.8 C、6 D、6.67 102、102. 表达式X+1&X是_____________.(本题1分)
A. 算术表达式B. 非法表达式C. 字符串表达式√D. 关系表达式103、下列有关数组的说法中，不正确的是________。
)A、在窗体模块中不可以定义全局数据组B、可以使用Erase语句释放所有数组所占据的存储储空间C、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组D、形参数组的类型可以是定长符串类型104、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。①Public A(5) As Integer ②Public N As Integer ③Public St As String④Private b() As Integer
)A、2 B、3 C、4 D、1105、对窗体编写如下代码： Option Base 1Private Sub Command1_Click( ) a=Array(237,126,87,48,498) m1=a(1) m2=1 For i=2 To 5 If a(i)&m1 Then m1=a(i) m2=i End If Next i Print m1;m2 End Sub程序运行后，按回车键，输出结果为_________。
4 B、237 1 C、498 5 D、498 4106、在窗体上画一个命令按钮，然后编写
如下事件过程：Option Base 1Private Sub Command1_Click( ) Dim a As Variant a = Array(1,2,3,4) j = 1For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub运行上面的程序，单击命令按钮，其输出结果是_____________。
)A、4321 B、12 C、34 D、1234107、程序代码如下，当单击窗体上Command1控件时，窗体上显示的结果是_________。Option Base 1Private Sub Command1_Click( ) Dim i As Integer Dim x(3,3)As Integer For i = 1 To 3 For j = 1 To 3 x(i,j) = (i-1) * 3+j Next j Next i For i = 1 To 3 Print x(i,4-i) Next iEnd Sub
)A、1 5 9 B、1 4 7 C、3 5 7 D、3 6 9108. 运行以下程序段，输出结果是。Dim a(1 To 10) Dim p(1 To 4) k = 5 For i = 1 To 4
p(i) = i * 2Next i For i = 1 To 4
k = k + p(i) * 2 Next iPrint k(本题1分)
C. 30√D. 45109. 当发生Command1_Click事件后，程序输出结果是________。 Option Base 1Private Sub Command1_Click() Dim a(4, 4) As Integer,i As Integer,s As Integer s=0 For i=1 To 4
For j=1 To 4
a(i, j) = (i-1)*4+j*2
Next j Next i For i = 1 To 4
s=s+a(i, i) Next i Print sEnd Sub(本题1分)
C. 30√D. 44110. 下列程序段的输出结果是____________。 Dim i As Integer Dim a(8) As Integer y = 18: i = 0 Doa(i) = y Mod 2
y = y \ 2 Loop Until y & 1 For j = i - 1 To 0 Step -1
Print a(j); Next j(本题1分)A. 1 0 0 0
√B. 1 0 0 1 0
C. 0 0 1 1 0
D. 1 0 1 0 0C、0 0 0 0 0 0 0 0 0 D、1 0 1 111. 下列程序的输出结果是____________。 Dim i As Integer, k As Integer Dim a(10) As Integer, p(3) As Integer k = 5 For i = 0 To 9
a(i) = i Next i For i = 0 To 2
p(i) = a(i * (i + 1)) Next i For i = 0 To 2
k = k + p(i) * 2 Next iPrint k(本题1分)A、17 B、21 C、22 D、23112、下列程序段的执行结果是________。Dim A(3,3) For M=1 TO 3 For N=1 TO 3If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 TO 3 For N=1 TO 3 Print A(M,N); Next N PrintNext M
)A、1 0 0 0 1 0 0 0 1 B、1 1 1 1 1 1 1 1 10 1 0 1 0 1113、如下数组声明语句，则数组a包含元素的个数有____________。Dim a(3 , -2 to 2 , 5)
)A、120 B、75 C、60 D、13114、如下二维数组声明语句，____________正确。
)A、Dim a[3，4] As Integer B、Dim a(3，4) As Integer C、Dim a(n，n) As Integer D、Dim a(34) As Integer 115、Option Base 1Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3 If j & 1 And i & 1 Thena(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1 Else a(i, j) = i * j End If Print a(i, j); & &; Next j Print Next iEnd Sub
)A、1 2 3 2 3 1 3 2 3 B、1 2 3 1 2 3 1 2 3 C、1 2 3 2 4 6 3 6 9 D、1 1 1
2 2 2 3 3 3116、要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9
D、单击停止运行按钮120. 单击按钮,输出为__________。
Private Sub fun( )
Static a As Integer
)A、Dim a(9) As Single B、Dim a(3，3) As SingleC、Dim a(-1 To l，-5 To -3) As Single D、Dim a(-3 To -1，5 To 7) As Integer117. 在窗体的通用声明处有语句Dim A() As Single，以下在某事件过程中重定义此数组的一组正确语句是：____________。(本题1分)
A. ReDim A(3,3)
ReDim A(4,4) As Integer
B. ReDim A (3,3)
ReDim Preserve A (4,4)
C. ReDim A(3)
ReDim A(3,3) As Integer√D. ReDim A (3,3)ReDim Preserve A(3,4)118、下列程序段的输出结果是________。 Dim A(5) For I=0 TO 4 A(I)=I+1 M=I+1 If M=3 Then A(M-1)=A(I-1) Else A(M)=A(I) End IfIf I=3 Then A(I+1)=A(M-4) Print A(I); Next I
)A、1 1 1 2 2 B、2 1 1 4 4 C、1 2 2 4 5 D、2 2 1 4 1119、运行程序产生死循环时，按________键可以终止程序的运行。
)A、Ctrl+C B、Ctrl +Z C、Ctrl+BreakEnd SubPrivate Sub Command1_Click( )
Dim m As Integer
For m=1 To 3
End Sub(本题1分)
6121. 在单击命令按钮时的输出结果是________。Private Sub Command1_Click ( )
Dim x%, y%
For n=1 to 3
z=First (x, y)
Print n, z
Next n End SubPrivate Function First% (x%, y%)
Do While n &= 4
First=xEnd Function(本题1分)
√A. 1 6 2 11 3 16
B. 2 6 1 3 11 16
C. 1 2 3 4 5 6D. 2 1 3 1 3 3122. 设有下列程序代码，在单击命令按钮时的输出结果是________。 Sub SS (ByVal x, ByRef y, z)
y=y+1z=z+1 End SubPrivate Sub Command1_Click ( )
A=1: B=2 :C=3
Call SS (A,B,C)
Print A,B,C End Sub(本题1分)A. 1 2 3
√B. 1 3 4
C. 2 2 4D. 1 3 3123. 程序运行后，如果单击命令按钮，则在文本框中显示的内容是________。
Private Sub Command1_Click( )
dim x, y, z As Integer
x=5: y=7: z=0
text1=“”
call p1(x,y,z)
text1=str(z) End SubPrivate Sub p1(ByVal a%, ByVal b%, c%)
End Sub(本题1分)A. 0
C. Str(z)D. 没有显示124. 当在Cmd1按钮上单击时，程序的输出是
.Public Function Func(a%,b%)As Integer
Static m As Integer : Dim i As Integer
m=0 : i=2:
i=i+m+1 : m=i+a+b : Func=m End FunctionPrivate Sub Cmd1_Click( )
Dim k%,m%,n%
k=4 : m=1 :n=Func(k,m)
Print n, Func(k, m) End Sub(本题1分)√A. 8
17125. 在Cmdl_C1ick事件中有效的地址传递的调用语句是
。Public Sub Fl(n%)
… End SubPrivate Sub Cmdl_Click()
Dim n%, m%
'调用F1语句 End Sub(本题1分)A. F1 n+m
C. F1 5D. F1 m+5126. 调用由语句Private Sub Convert(Y AsInteger)定义的Sub过程时，以下不是按值传递的语句是
。(本题1分)A. Call Convert ((X))
B. Call Convert(X*1)
C. Convert (X)√D. Convert X127. 若在应用程序中用Private Sub Sub1(Xas integer,Y as Single)定义了子程序Sub1，调用程序中的变量i、j均为Integer型，则正确调用子程序Sub1的Call语句是
① Call Sub1(i,j)
② Call Sub1(3.1415,i)③ Call Sub1(3.14,234)
④ Call Sub1(“245”, “231.5”)(本题1分)A. ①③
C. ①②③D. 无128. 在调用Sub或Function过程时，采用______传送相应过程的变量名、数组名、常数或表达式。(本题1分)A. 形式参数
√B. 实际参数
C. 对象参数D. 数组参数129. 在程序中的不同过程之间，不能通过
进行数据传递。①全局变量②窗体或模块级变量③形参与实参结合④静态变量(本题1分)
C. ②④√D. ④130. Sub过程与Function过程的本质区别是____________。(本题1分)A. Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
B. Function过程可以有形参，Sub过程不能有形参C. 两种过程参数传递方式不同√D. Sub过程没有返回值，Function过程能返回值131. 模块的通用声明处有如下语句，会产生错误的语句是
。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer④Dim Const X As Integer=10(本题1分)A. ①②
C. ①②③√D. ②③④132. 在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则应该使用 _______关键字在过程中定义局部变量。(本题1分)A. Dim
B. Private
C. Public√D. Static133. 以下有关变量作用域的说明中，错误的是
。(本题1分)√A. 只有在标准模块中用Public语句说明的变量才是全局变量
B. 在过程中不能使用Public语句说明全局变量
C. 在标准模块的通用声明处可用语句说明模块级变量D. 在窗体的通用声明处可用Private语句说明窗体级变量134. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是_______。(本题1分)
A. Sub Procl ( ByVal n , ByVal m)B. Sub Procl ( n , ByVal m)
√C. Sub Procl ( n , m)D. Sub Procl ( ByVal n , m)135. 在语句Public Sub Sort(i As Integer)中i是一个按________传递的参数。 (本题1分)√A. 地址
C. 变量D. 常量136、在窗体上添加一个命令按钮，名为Command1，事件过程如下。执行结果是________。Sub pb(b( ) As Integer) For i=1 To 4 B(i)=2*i Next i End SubPrivate Sub Command1_Click( ) Dim a(1 To 4) As Integer a(1)=5:a(2)=6: a(3)=7:a(4)=8 pb a For i=1 To 4 Print a(i); Next iEnd Sub
)A、5 5 5 5 10 10 B、5 5 5 5 5 10 C、5 5 10 5 10 10 D、5 5 5 10 10 10137. 阅读下列程序，其输出的结果是________。Private Sub Command1_Click()
Dim a(1 To 3) As Integer
For i=1 To 3
Call sub1(a)
For i=2 To 3
Print a(i)
Next i End Sub
Public Sub sub1(a() As Integer)
For i=1 To 3
Next iEnd Sub(本题1分)
√C. 4 9D. 1 4138. 程序中未定义的变量均为integer，单击Command1，程序的输出是。
Private Sub Command1_Click()
n=Func(k, m)
Print n, Func(k,m) End SubPublic Function Func(a As Integer, b As Integer) As IntegerStatic m As Integer
Func=m End Function (本题1分)
C. 8 16D. 8 17139、给出下列程序代码，在单击命令按钮时的输出结果是________。Private Sub Command1_Click ( ) Dim x As Integer, y As Integer x=1:y=1 For n=1 TO 3 z=FirstFunc (x, y) Print n, z , Next n End SubPrivate Function FirstFunc (x As Integer, y As Integer) As IntegerDim n As Integer Do While n &= 4 x=x+yn=n+1 Loop FirstFunc=x End Function
)A、1 6 2 11 3 16 B、2 6 1 3 11 16 C、1 2 3 4 5 6 D、2 1 3 1 3 3140、给出下列程序代码在第一次单击命令按钮时文本框Text1和Text2中的内容，第二次单击命令按钮时文本框Text1和Text2的内容。Dim y As IntegerPrivate Sub Command1_Click( ) Dim x As Integer x=2Text1.Text=SecondFunc(FirstFunc(x), y) Text2.Text=FirstFunc(x) End SubPrivate Function FirstFunc(x As Integer) x=x+y:y=x+y FirstFunc=x+Y End FunctionPrivate Function SecondFunc(x As Integer, y As Integer)SecondFunc=2*x+y End Function(本题1分)A、10,10 20,20 B、20,20 30,30 C、50,50 10,10 D、10,10 58,58141、给出下列程序代码，在单击三次命令按钮时的输出结果是________。Dim x, y, z As Integer Sub SS( ) x=x+1 y=y+1 z=z+1 Py;z Sub EndPrivate Sub Command1_Click ( ) Dim x, y, z x=1: y=2: z=3 Call SSP z End Sub
)A、1 1 1 1 2 3 2 2 2 1 2 3 3 3 3 1 2 3 B、1 1 1 1 1 1 2 2 2 2 2 2 3 3 3 3 3 3 C、1 2 3 1 2 3 1 2 3 D、1 1 1 2 2 2 3 3 3142、设有下列程序代码，在单击命令按钮时的输出结果是________。Sub SS (ByVal x, ByRef y, z) x=x+1 y=y+1 z=z+1 End SubPrivate Sub Command1_Click ( ) A=1: B=2 :C=3 Call SS (A,B,C) Print A,B,C End Sub
)A、1 2 3 B、1 3 4 C、2 2 4 D、1 3 3143、一般来说，当变量名称相同而作用域不同时，局限性_____________的变量总会用&阴影&遮住局限性不太大的变量。
)A、大 B、小 C、更小 D、比较小144、如下程序，运行的结果是____________。Dim a%,b%,c% Public Sub pl(x%,y% dim c% =2*x : y=y+2 : c=x+y End SubPublic Sub p2( x%，ByVal y%） dim c%x=2*x : y=y+2 : c=x+y End SubPrivate Sub Commandl_Click( a=2: b=4: c=6 call pl(a,b)print &a=& ; &b=&;&c=& ; c call p2(a,b)print &a=& ; &b=&;&c=& ; c End Sub(本题1分A、a=2 b=4 c=6a=4 b=6 c=10 B、a=4 b=6 c=10a=8 b=8 c=16 C、a=4 b=6 c=6a=8 b=6 c=6 D、a=4 b=6 c=14a=8 b=8 c=6145、某过程的说明语句中，正确的数组说明语句是____________。&BR /&Const N as integer=4 &BR /&Dim L as integer&BR /&①.Dim X (L) As Integer &BR /&②.Dim A(K) As Integer &BR /&&FONT size=&3&&Const K AsInteger=3&BR /& ③.Dim B(N) As Integer &BR /&④.Dim Y(2000 To 2008) As Integer&/FONT& (
)A、①②④ B、①③④ C、③④ D、②③146、程序中的不同过程之间，不能通过____________进行数据传递。 ①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量
)A、①②④ B、①②③
C、②④ D、④147、调用由语句Private Sub Convert(Y AsC. 1 2 3 4 5
D. 1 2 3 5 7151、可以在窗体模块的通用声明段中声明Integer)定义的Sub过程时，以下不是按值传递的语句是____________。
)A、Call Convert ((X)) B、Call Convert(X*1) C、Convert (X) D、Convert X148、在窗体模块的通用声明段中声明变量时，不能使用____________关键字。
)A、Dim B、Public C、Private D、Static149、假定已定义了一个过程Sub Add(a As Single, b As Single)，则正确的调用语句是________。
)A、Add (12 , 12)B、Call Add( 2 * x , Sin(1.57) ) C、Call Add x , y D、Call Add(12 ,12, x)150. 单击一次命令按钮后，下列程序代码的执行结果为_______Private Sub proc(a() As Integer) Static i As Integer
Do a(i) = a(i) + a(i + 1) i= i + 1Loop While i & 2
End SubPrivate Sub Command1_Click()Dim m As Integer, i As Integer, x(10) As Integer
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 iEnd Sub(本题1分)
A. 3 4 7 5 6√B. 3 5 7 4 5的是________________。
)A、全局变量 B、全局常量 C、全局数组D、全局用户自定义类型2、填空题(本题共计124分)1、以下程序段的输出结果是_____ 。 Dim j As Integer,s As Integer Do s=s+j j=j+1 Loop Until j=5 Print &s&; s2、组合框有三种不同的风格：下拉式组合框、 __(1)___和下拉式列表框。可通过___(2)___ 属性来设置。3、窗体上有一按钮和一个列表框，执行下列程序后的输出结果为____ 。Private Sub Command1_Click( ) List1.AddItem &China& List1.AddItem &USA& List1.AddItem &Japan&,1 Print List1.List(2) End Sub4、要使文本框可以显示多行文本，应把文本框的__(1)___ 属性设置为True。5、以下程序段的输出结果是_____ 。 Dim j As Integer,s As Integer Do s=s+j j=j+1 Loop Until j=5 Print &s&; s6、执行下面的程序段后，s的值为_____ 。s=5For i=2.6 To 4.9 Step 0.6 s=s+i Next i print s7、要使文本框可以显示多行文本，应把文本框的__(1)___ 属性设置为True。
8、__(1)__属性决定了按Tab键时，焦点在各个控件移动的顺序。9、执行下面的程序，击窗体后在窗体上显示的第一行结果是___(1)______，第三行结果是____(2)_______。 Private Sub Form_click()Dim mystr, mystr1, mysrr2 As String mystr1 = &B& For i = 1 To 3mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mysre & mystr1 Print mystrmystr1 = Chr(Asc(mystr1) + i) Next i End Sub10、当文本框中的内容改变时，将会发生_____ 事件。11、已知K=2，J=3，A=True，则VB表达式(K-J&=K)AND(NOT A)OR(K+J&=J)的值为 _____。12、表示&A+B+C大于等于255，或A与B分别大于90且C大于80&的VB表达式的 ____13、表示&A和B之一为零但不同时为零&的VB表达式为______ 。14、有下列程序：Private Sub Command1_Click( ) a$=&Good Morning& b$=&Even&c$=Left$(a$,4)+LCase$(b$)+Right$(a$,3) Print c$ End Sub运行后窗体上显示的是 ______ 。 15、能正确产生[1,30]之间的随机整数的表达式是 ________ 。16、表达式Fix(-48.65)+Int(-52.15)的值是________。17、X是小于100的非负数，对应的表达式是____(1)______.18、关系式-5&=X&=5所对应的表达式是_____(1)______19、表达式7^2Mod 5^2\3的值为__________20、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为________21、下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。1，1，2，3，5，8，13,...... Dim a As Integer,b As Integer Dim i As Integer a=1:b=1:i=3 Print a,b, Do While(i&=20) c=a+b t=b b=a+b ____(1)____ Print c,If____(2)____ Then Print End If _____(3)_____ Loop22、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_____。Dim a As Integer,b As Integer a=InputBox(&请输入第一个整数&,& &) b=InputBox(&请输入第二个整数&,& &) Print a+b23、下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空：Const PassWord=&& Dim inpass As StringInpass=_______(&请输入你的密码&,&输入密码&)If inpass=PassWord Then Exit Sub Else_______&对不起！你是非法用户。&，vbOKOnly+vbCritical,&拒绝&Unload Me End If24、下面程序运行后，文本框中的数据为。Private Sub Command1_Click( ) For a=1 To 5 y=1For b=1 To 10
For c=1 To 6 x=x+1 y=y+1 Next c Next b Next a Text1.Text=y End Sub25、InputBox函数返回值的类型为_________。26、下面程序的功能是判断100～999之间的所有素数，所谓素数是指只能被1和它本身整除的数。完善下列程序。Private Sub Form_Click( ) Dim i As Integer Dim k As integer For i=100 To 999 For k=2 To i-1 If ________Then _________ End If Next kIf ________Then Print i End If Next i End Sub27、在窗体上画一个命令按钮Command1。如下程序的功能是将一个个位数转换成以二进制形式的字符串，如果长度小于4，将在其前面补&0&至4位。Private Sub Command1_Click( ) Dim t As Integer,b As String,k As Integer t=InputBox(&输入一个8&) Do Until t&1 k=t Mod 2 b=CStr(k)& b t=t\2 LoopIf Len(b)& 4 Then b=&0000& & b t=______ Else t=bEnd If Print t End Sub程序运行后，单击命令按钮，在输入框输入数值&8&;，则窗体上显示的内容是_____。28、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如6的因子为1，2，3，其和为6，则6为完全数。编程找出1～100之间的所有完全数。完善下列程序。Private Sub Command1_Click( )Dim a As Integer, b As Integer, c As Integer, i As IntegerFor a = 2 To 100 ____(1)_____ For b = 2 To a-1 If a Mod b = 0 Then c = b+c End If Next bIf___(2)___Then Print a End If Next a End Sub29、找出1～10000之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。例如，25的平方为625，25是同构数。完善下列程序。程序代码如下：Private Sub Command1_Click( ) Dim i As Integer, y As Long For x = 1 To 1000 y = x * x If ___(1)___ Then Print x End If Next x End Sub30、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。Option ExplicitPrivate Sub Command1_Click( ) Dim s As String,k As IntegerDim r As String,i As Integer,t As String s=“aa11bb22Cc33” For i=1 To Len(s) t=_____(1)_____If t&=“a”And t&=“z”Or t&=“A”And t&=“Z”Thenr=r & t End If Next i Print r End Sub31、求满足如下条件的三位数，它除以11所得的商等于各位数字的平方和。例如：550/11=50=5*5+5*5+0。完善下列程序。程序代码如下：Private Sub Form_Click( )Dim a As Integer,b As Integer,c As Integer,n As Integer,j As IntegerFor a= __(1)__ For b=0 To 9 For c=0 To 9 n= __(2)__ If (n Mod 11=0)And(n\11=a*a+b*b+c*c)ThenP&/11=&;n/11;&=&；a*a;b*b;c*c End If Next c Next b Next a End Sub32、执行下面的程序，在窗体上显示的输出结果的第一行是 ______ ，第三行是 ______ ，Form_Click( )事件过程中的第二个For-Next循环共执行了 ______ 次。Option Explicit Option Base 1Private Sub Form_Click( )Dim x(6) As Integer,I As Integer,j As Integer For i=1 To 6 x(i)=i^2 Print x(i); Next i Print For j=1 To i-2Call sub1(x(j),j) Print j Next j End SubPublic Sub sub1(x As Integer,m As Integer) If x-m&=2 Then m=m+2 Else m=m+3 End If End Sub33、输入一个正整数 k，求各位数字之和。请将下列程序补充完整。 程序代码如下：Option ExplicitPrivate Sub Command1_Click( ) Dim Sum As Integer, k As Long k = Val(Text1.Text) Do While K&0Sum = Sum + ____(1)__ k = k\10 LoopText2.Text = Str(Sum) End Sub34、用100元买100鸡，条件是公鸡x每只5元，母鸡y每只3元，小鸡z只1元3只。程序中的选项是_______。Private Sub Command1_Click( ) For x = 0 To 100 For y = 0 To 100 z=100-x-yIf ____(1)____Then Print x, y, z Next y Next x End Sub35、编写一个求给定8位二进制数的反码的程序。将程序补充完整。Private Sub Command1_Click( )Dim yuanma As String, fanma As String, fa As Stringyuanma = Text1.Text fanma = && For i = ____(1)____ fa = Mid(yuanma,i,1) Select Case Val(fa)Case 0 fa = &1& Case 1 fa = &0& End Select fanma=fanma+fa Next itext2.Text=___(2)_______ End Sub36、下面程序的运行结果是在窗体中显示的：Private Sub Command1_Click( ) For k=1 To 4 If k&=1 Then a =2+k If k&=2 Then a =2-k If k&=3 Then a =2*k If k&=4 Then a =k/4 P Next k End Sub运行后窗体上显示的是________。 37、下面是一个求两位数的程序，要求每两位数的两个数码各不相同，并统计有多少个这样的两位数，显示所有满足条件的两位数。阅读程序，并填空。Private Sub Command1_Click( ) n=0For a=____(1)_______ For b=0 To 9 If a&&b Then k=10*a+b n=___(2)_____ P End IfNext __(3)__ ,__(4)___ Print number=&, n End Sub38、两质数的差为2，称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m是否为质数。Public Function IsP(m) As Boolean Dim i%___________ For i=2 To Int(Sqr(m)) If __________ Then IsP=False Next i End FunctionPrivate Sub Commandl_Click() Dim i% Pl=IsP(3)For i=5 To 100 Step 2 p2=IsP(i)If __________Then Print i-2,i p1 __________ Next i End Sub39、下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。Private Sub Form_Click() Dim a,I%,n%,m%a=Array(19,17,15,13,11,9,7,5,3,1) n=Ubound(a) ReDim___(1)______m=Val(InputBox(&输入欲插入的数&)) For i=Ubound(a)-1 To 0 Step -1 If m&=a(I) Then ____(2)_____ ElseIf I=0 Then a(I)=m Else______(3)________ Exit For End If Next iFor i=0 To Ubound(A) Print a(i) Next i End Sub40、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的&ABCDEFG&变换成&GFEDCBA&。Private Sub Command1_Click() Dim a$,i%,c$，d$a=inputBox$(&输入字符串&) n=____(1)_____For I=1 To ____(2)__________ c=Mid(a,I,1)Mid(a,I,1)=_____(3)_____ ____(4)______=c Next i Print a End Sub41、以下程序运行后，si、sj、sk的结果分别是___(1)__，i、j、k的结果分别是___(2)___。44、以下程序可计算自然数e的值，要求精确到10^(-15)请将程序补充完整。已知e的计算公式为e=1+1/1!+1/2!+...+1/n!。Private Sub Command1_Click() _____ n=0:term=1:t=1 Do n=n+1 t=t/n Private Sub Command1_Click() si=0:sj=0 For i=1 To 3 For j=1 To i sk=0 For k= j To 3 sk=sk+1 Next k sj=sj+1 Next j sj=si+1 Next i End Sub42、下面程序段，显示的结果是_________ 。Dim x x=Int(Rnd)+5 Select Case x Case 5 Print &优秀& Case 4 Print &良好& Case 3 Print &通过& case Else Print &不通过& End Select43、运行下面的程序，就会出现___(1)___，按____(2)____键可以终止程序运行。Private Sub Form_Click ( ) Dim i As Integer Do While i&10 i =i * 20 Loop End Sub____Loop While t&1.0E-15 Text1.Text=term End Sub45、已知下列程序运行结果是ABCD，请将程序补充完整。Private Sub Command1_Click( ) a=&&For n=65 To 68 a=a+______ Next n Print a End Sub46、下列程序计算１！，３！，５！，７！的值。完善下列程序。Private Sub Command1_Click( ) for x = 1 To 7 Step 2 _______ For y = 1 To x fact = fact * y Next yP &! =&; fact Next x End Sub47、下列程序的运行结果为________。 Private Sub Command1_Click( ) x = 1 For k = 1 To 3 If k = 1 Then a = x * x If k&= 2 Then a = x * x+1 If k &= 3 Then a = x * x+2 P Next k End Sub48、下列程序执行后，打印结果是______ 。Option ExplicitPrivate Sub Command1_Click( ) Dim i As Integer Dim sum As Integer sum = 0 For i = 3 To 100If i Mod 3 = 0 And i Mod 11 = 0 Then sum = sum + i End If Next i Print sum End Sub49、运行下面程序，单击窗体后在窗体上显示的内容是__ (1)__ ; 若将程序中的A语句和B语句调换位置，再次执行程序，单击窗体后在窗体上显示的内容是 ___(2) __。private Sub Form_Click() Dim a As Integer, b As Integer a = 0: b = 0 Do While a &=8 a = a + 2
'A b = b + a * a
'B Loop Print a, b End Sub50、运行下面程序，单击窗体后在窗体上显示的第一行结果是___(1)____；第二行结果是____(2)_____；第三行结果是____(3)______。Private Sub Form_Click() Dim i As Integer, s As Integer For i = 1 To 10 s = s + i If s &10 Then Print s s = 0 End If Next i End Sub51、下列程序运行的结果为___(1)___ 。执行完该程序后，共循环了____(2)___次。Private Sub Command1_Click( ) Dim intsum As Integer Dim i As IntegerFor i = 1 To 17 Step 2 intsum = intsum+i Next i Print intsum End Sub52、在下面程序运行时键入2，则该程序的运行结果是___(1)___Private Sub Command1_Click() x = InputBox(&请输入一个整数&) Select Case x Case Is& -3 Print (x + 1) / (x + 3) Case -3 To 3 Print x * x + 1 Case Is&3Print (x + 1) / (x - 3) End Select End Sub53、本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P=N*（N+1）-1例如，43=19+17+13，最大奇数为19。 当程序执行后，分别给对话框输入4和6时，问计算结果分别为__(1)_____和___(2)___ 。Private Sub Command1_Click( ) Dim s As Stringn = InputBox(&输入一个自然数&) num = n * n * n p = n * (n + 1)-1 x = p k = 1Do Until x = num p = p-2 x = x + p k = k + 1 Loop Print P p End Sub54、已知数组A(4，4)，各个元素在运行程序时，被赋值并打印，形成四阶方阵。程序执行后，产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。请完善下列程序。例如：1 2 3 4 -------&1 1 1 1 1 2 3 4 -------&2 2 2 2 1 2 3 4 -------&3 3 3 3 1 2 3 4 -------&4 4 4 4Private Sub Command1_Click( ) Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j); Next j Print Next k Print For k=2 To 4 For j=1 To _______ t=a(j,k) a(j,k)=_______ a(k,j)=t Next j Next k End Sub55、下面的程序用&冒泡&法将数组a中的10个整数按升序排列，请将程序补充完整。Option Base 1Private Sub Command1_Click( ) Dim a,i,j,k As Integera=Array(678,45,324,528,439,387,87,875,273,823)For i=_________ For j=_________ If a(i)________a(j) Then a1=a(j):a(j)=a(i):a(i)=a1 End If Next j Next i for k=1 To 10 Print a(k); Next k End Sub56、执行下面程序后，A(1，3)的值是________ ，A(2，2)的值是________ ，A(3，1)的值是________ 。Option Explicit Option Base 0Private Sub Form_Click( ) Dim A(3,3)As Integer,I As Integer Dim k As Integer,m As Integer m=16For k=6 To 0 Step -1 If k&=2 Then For I=0 To 5-k A(k-2+I,I)=m m=m-1 Next I Else For I=0 To k A(k-I,3-I)=m m=m-1 Next I End If Next k For k=0 To 3 For I=0 To 3 Print A(k,I); Next I Print Next k End Sub57、以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值._____(1)_____ as integer private sub command1_click() redim ___(2)____ for i=1 to 20 x(i)=1 print x(i) next i end sub58. 用二分法求函数f(x)=x3C4x + 1=0 在x=0～5 范围内的x=2附近的一个实根，其计算误差为|xlCx2|＜10C5。
Private Sub form_Click ( )Dim x!, t!, x1 As Single, x2 As Single
x1=0: x2=5
Do While __①____x = (x1+x2)/2x2 = x
LoopPrint &x = &; x
End SubPrivate Function func( x! ) As Single
End Function
59. 执行程序单击命令按钮后，调试窗口中显示的结果是
；将A、B语句交换位置,运行程序后调试窗口的内容是
Option Explicit Sub qq(k,x)
Dim i As Integer
For i=1 To k
Next i End SubPrivate Sub Command1_Click()
Dim n%, i%, x%
For i=1 To 3
Call qq(i,x)
Next iDebug.Print &n=& & n
End Sub60. 运行下列程序，在窗体上显示的第一行是
_；第二行是
。Private Function t(n As Integer, k As Integer) As Integer
t = 0Do While k & 0
t = n Mod 10
n = n \ 10
Loop End FunctionPrivate Sub Form_Click()
Print t(1234, 2)
Print t(1234, 4) End sub61、当sub过程value形参表中存在byval关键字时，执行本程序，单击窗体在窗体上显示的第一行内容是____(1)______；若将形参表的byval关键字删掉，在执行本程序，单击窗体后在窗体上显示的第一行内容是____(2)________ ；第二行内容是 ____(3)_______ 。Private Sub value(ByVal m As Integer, ByVal n As Integer)m = m * 2 n = n - 5Print &m=&; m, &n=&; n End SubPrivate Sub Form_Click() Dim x As Integer, y As Integer x = 10: y = 15 Call value(x, y) Print &x=&;x, &y=&;y End Sub62、运行下面程序，当单击窗体时，窗体上显示的内容的第一行是____(1)_______，第二行是_____(2)_______。Private Sub test(x As Integer)x = x * 2 + 1 If x & 6 Then Call test(6) End If x = x * 2 + 1 Form1.Print x End SubPrivate Sub Form_Click() test 2 End Sub63、添加按钮Command1和文本框Text1,并编写下列代码。执行程序单击命令按钮后,Text1中是_______；将A、B语句交换位置,执行程序单击命令按钮后,Text1中是________。Option Explicit Sub abc(k,x)Dim i As Integer x=1 For i=1 To k x=x*i Next i End SubPrivate Sub Command1_Click()Dim n As Integer,i As Integer,x As Integer n=0:x=0 For i=1 To 3 Call abc(i,x) 'A语句 n=n+x 'B语句 Next iText1.Text=&n=& & n End Sub64、用二分法求函数f(x)=x^3-6x-1=0 在x=2～5 范围内的x=2附近的一个实根，其计算误差为|xl-x2|＜10^(-6)。完善下列程序。Private Sub Command1_Click ( )Dim V0 As Singke, v As Single, s As String Dim x As Single, t As Single, x1 As Single, x2 As Singlex1=0: x2=5 Do While ______ x = (x1+x2)/2 If Sgn(f1(x)) = 1 Then x2 = x Else x1 = x End If Loop Print &x = &; x End SubPrivate Function f1(x As Single) As Single f1 = x * x * x -6 * x-1 End Function65、下程序的功能是找出此数各位数字的阶乘相加之和等于该数，并在列表框List1中显示。阶乘由Function计算。在(1)、(2)处填上正确内容。Private Sub Command1_Click( ) For k=1 To 1000 a=LTrim(Str(k)) n=0For i=1 To Len(a) p=Val(Mid(a,i,1)) n=n+fact(p) Next iIf n=k Then_____(1)_______ Next k End SubPrivate Function fact(x) if x&=1 Then fact=1 Elsefact=_____(2) _____ End If End Function66、窗体中有一文本框Text1，执行下面程序后，窗体上结果是 _______ ，文本框中输出结果是 _____ 。Option ExplicitPrivate Sub Form_Click( ) Dim a As Integer a=2 Call Sub1(a) Text1.Text=a End SubPrivate Sub Sub1(x As Integer) x=x*2+1 If x&10 Then Call Sub1(x) End If x=x*2+1 P End Sub67、执行下面的程序，在窗体上显示的输出结果的第二行是_____，第三行是_____。Option ExplicitDim a As Integer, b As Integer Private Sub Command1_Click( ) Dim c As Integer a = 1: b = 3: c = 5 Print fun(c)b;c Print fun(c) End SubPrivate Function fun(x As Integer)As Singlefun = a + b + x/2 a = a + b b = a + x x = b + a End Function68、一个窗体上有一个命令按钮Command1，下列程序执行后，输出的结果为_________。Private Sub Command1_Click( ) Dim x As Integer x = 1 Call sort(x) P call sort((x)) P End SubPrivate Sub sort(y As Integer) y = y+1 End Sub69、运行下面程序，单击窗体后在窗体上显示的第一行结果是__ (1) __ ；第三行结果是___ (2)__ 。Private Sub Test(x As Integer) Dim i As Integer If x && 0 Then Call Test(x - 1) Print x End If End SubPrivate Sub Form_Click() Test 3 End Sub70、运行下面的程序，当单击窗体时，窗体上显示的内容第一行是______。第二行是_______。Private Sub Test(x As Integer) x = x * 2 +1 if x&6 Then Call Test(x) End If x = x * 2 + 1 Form1.Print x End SubPrivate Sub Form_Click( )Test 2 End Sub71、如下程序，运行的结果是____(1)________，若将A语句改为Static i%，运行的结果是______(2)_____。Public Sub Proc(a%()) Dim i%
'A Doa(i)=a(i)+a(i+1) i=i+1Loop While i&2 End SubPrivate 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 Sub72、如下程序，运行的结果是 ________ 。 Private Sub Command1_Click() Print p1(3,7) End SubPublic Function p1!(x!, n%) If n=0 Then p1=1ElseIf n Mod 2=1 Then p1=x*p1(x,n\2) Elsep1=p1(x,n\2)\x End If End Function
1.b,2.d,3.b,4.a,5.d,6.c,7.a,8.b,9.d,10.c,11.d,12.d,13.d,14.c,15.a,16.d,17.c,18.b,19.b,20.c,21.b,22.a,23.d,24.a,25.a,26.b,27.d,28.d,29.c,30.c,31.a,32.a,33.c,34.b,35.b,36.c,37.b,38.d,39.a,40.b,41.b,42.d,43.d,44.d,45.b,46.b,47.b,48.a,49.b,50.a,51.a,52.c,53.c,54.b,55.a,56.b,57.a,58.b,59.d,60.c,61.c,62.c,63.a,64.a,65.d,66.a,67.b,68.d,69.c,70.d,71.a,72.b,73.c,74.b,75.c,76.c,77.b,78.b,79.c,80.d,81.c,82.b,83.b,84.d,85.b,86.a,87.c,88.c,89.c,90.a,91.b,92.c,93.b,94.b,95.c,96.c,97.c,98.a,99.d,100.c,101.c,102.d,103.b,104.b,105.c,106.d,107.c,108.d,109.d,110.b,111.b,112.d,113.a,114.b,115.a,116.c,117.d,118.c,119.c,120.c,121.a,122.b,123.b,124.a,125.b,126.d,127.b,128.b,129.d,130.d,131.d,132.d,133.a,134.c,135.a,136.a,137.c,138.a,139.a,140.d,141.a,142.b,143.b,144.c,145.c,146.d,147.d,148.d,149.b,150.b,151.a
1.s=10,2.简单组合框,Style,3.USA,4.MultiLine,5.s=10,6.19,7.MultiLine,8.TabIndex,9.Bb,Ee,10.Change,11.True,12.A+B+C&=255 Or A&90 And B&90 And C&80,13.A=0 xorb=0,14.Goodevening,15.Int(Rnd()*30)+1,16.-101,17.x&100 and x&=0,18.X&=-5 andX&=5,19.1,20.2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y),21.a=t,i Mod5=0,i=i+1,22.357,23.InputBox,MsgBox,24.61,25.字符串型,26.i Mod k=0,ExitFor,k=I,27.right(b,4),1000,28.c=1,c=a,29.x=(y mod 10) or (x=(y mod 100)) or (x=(y mod1000)),30.mid(s,i,1),31.1 to 9,a*100+b*10+c,32.1 4 9 16 25 36,7,2,33.k mod10,34.5*x+3*y+z/3=100,35.1 to
8,fanma,36.2
1,37.1 to 9,n+1,b,a,38.IsP=True,m Mod i=0,p1 And p2,=p2,39.Preservea(n+1),a(I+1)=a(I),a(I+1)=m,40.Len(a),n/2,Mid(a,n-i+1),Mid(a,n-i+1),41.0 1
4,42.优秀,43.无限循环,Ctrl+Break,44.Dim t as Double,term=term+t,45.Chr$(n),46.fact=1,47.2
3,48.198,49.10
120,50.15,13,17,51.81,9,52.5,53.4 13,6 31,54.k,a(k,j),55.1 to 9,i+1 to 10,&=,56.6,8,14,57.dim x(),x(1 to20),58.abs(x1-x2)&=1e-5,=1,x^3-4*x+1,59.n=10,n=5,60.3,1,61.m=20 n=10,m=20 n=10,x=20y=10,62.27,11,63.n=9,n=3,64.Abs(x1-x2)&0..List1.AddItem k,x*fact(x-1),66.23 47,47,67.4
13,19.5,68.2
2,69.1,3,70.23,47,71.8
5,72.27VB期末考试编程题覆盖范围：第一题要求（15分）：不用过程，覆盖以下算法：1． 求随机10个整数的最大值、最小值、平均值以及和；2． 求水仙花数；3． 百元买百鸡问题；4． 求1000以内的所有完数；5． 求各位数字之和;6． 求最小公倍数；7． 求逆序数；8． 级数有限项求和问题；9． 求质因子问题；10． 字符统计。第二题要求（25分）：指定编写过程并调用此过程，覆盖以下算法:1． 判定素数过程；2． 求最大公约数过程；3． 冒泡排序过程；4． 顺序查找过程；5． 判断回文数过程；6． 递归函数求阶乘；7． 递归函数求Fibonacci数列；8． 矩阵靠边元素之和；9． 矩阵不靠边元素之和；10． 矩阵转置。其它题型：单选题40题，每题1分共40分，填空题20空，每空1分，共20分。11． 递归函数求阶乘，保存为
递归函数求Fibonacci数列,保存为
上一篇： 下一篇：
All rights reserved Powered by
copyright &copyright 。文档资料库内容来自网络，如有侵犯请联系客服。