《湖南二级计算机考试vb》由会员分享，可在线阅读，更多相关《湖南二级计算机考试vb（43页珍藏版）》请在金锄头文库上搜索。
1、56、以下定义的函数（ C）是按“传值”方式传递参数的。A. Public Function Sum(x,y)B. Public Function Sum(ByVal x, ByVal y)C. Public Function Sum(x as Integer,y as Integer)D. Public Function Sum(x%, y%)57、以下函数的定义中，（ C）是错误的。A. Public Function Sum(x ; y)B. Public Function Sum(ByVal x, ByVal y)C. Public Function Sum(x as Integer,
2、y as Integer)D. Public Function Sum(x%, y%)58、以下递归函数中，正确的是（A ）。A. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn*nEnd FunctionB. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn(n)*nEnd FunctionC. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn(n-1)*nEnd FunctionD
3、. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn(n+1)*nEnd Function59、已知一窗体中有如下函数过程和一命令按钮 Command1，则单击 Command1时，输出结果为（C ）。Public Function Fun(x, y)Fun = 1For i = 1 To yFun = Fun * xNext iEnd FunctionPrivate Sub Command1_Click()Print Fun(3, 4)End SubA. 3 B. 4 C. 81 D. 25660、已知一窗体上命令按钮 C
4、ommand1的 Click事件代码如下，则单击Command1后，文本显示的文字为（A ）。Private Sub Command1_Click()Text1.Text =”湖南省” & “计算机” + “等级考试”Text1.ForeColor = vbRedText1.BackColor = vbGreenText1.FontBold = TrueEnd SubA. 湖南省计算机等级考试B. 计算机C. 等级考试D. 计算机等级考试61、VB 提供的三种访问文件的模式中，不包括（D ）。A. 顺序文件 B. 数据库文件 C. 随机文件 D. 二进制文件62、以下 VB语句中，（B ）的功
5、能是复制指定文件。A. Kill B. FileCopy C. Name D. MkDir63、以下是 Command1的单击事件，单击 Command1后，在当前目录下创建了一个名为 a.txt的文件，该文件内容为（）。Private Sub Command1_Click()Open “a.txt” For Output As #1Print #1, “计算机”；”等级考试”Close #1End SubA. 等级考试 B. 计算机等级考试 C. 计算机 D. 计算机；等级考试64、已知一名为“Student.txt”的文件，其内容如下：张小三，98，87，99李四明，77，88，93陈大光
6、，89，56，65则以下程序段执行的结果为（A）。Private Sub Command1_Click()Open “student.txt” For Input As #1While (Not EOF(1)Input #1, Nam, Chn, Eng, CmpSum = Chn + Eng + CmpPrint Sum;WendClose #1End SubA. 284 258 210B. 98 87 99C. 77 88 93D. 89 56 6565、以下关于 while-wend循环的说法中正确的为（D ）。A、 与 do while-loop循环完全一致B、 不能用 do whil
7、e-loop循环来代替C、 其循环中不能使用 exit while 退出循环D、 while-wend 不能实现所有循环要求66、For 语句的格式如下，下列说法错误的是（B ）。for = to step exit fornext A、 步长只能为正数，不能为负数B、 步长为 1时，可略去不写C、 初值、终值和步长都是数值表达式D、 next 后的循环变量与 for语句中的循环变量必须相同67、要控制窗体启动时，在屏幕上的位置，可通过（C ）属性来设置。A. Top 和 Left B. Left 和 Right C. StartUpPosition D. WindowState68、窗体中的
8、鼠标指针形状，可以通过（ B）属性来设置。A. MouseIcon B. MousePointer C. Picture D. Icon69、若要将窗体隐藏起来，实现的方法为（ D）。A. Unload B. Cls C. WindowState D. Hide70、在窗体中利用 Print方法输出文本信息时，信息的输出位置由（D ）属性设置。A. Left B. Top C. x,y D. CurrentX,CurrentY71、当窗体的大小被调整时，将会发生的事件有（B ）A. Move B. Resize C. Paint D. Click72、若要将一普通窗体设置为 MDI窗体的子窗体
9、，应将（C ）属性值设为True。A. Enabled B. Visible C. MdiChild D. Moveable73、关闭 MDI窗体时，会触发的事件是（B ）。A. Load B.Click C. Resize D. QueryUnload74、菜单设计器中，要将当前菜单项下移一个位置，应按（B ）按钮。A. “左箭头” B. “右箭头” C. “上箭头” D. “下箭头”75、活弹出式菜单的命令是（ D）。A. Load B. Show C. SetFocus D. PopupMenu76、要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（C ）字符。A
10、. / B. C. & D. 77、要想通过单击 Form2上的 Command1，从内存中清除 Form2窗体，则可在Command1的单击事件中，使用（C ）命令。A. Load Form2 B. Form2.ShowC. Unload Form2 D. Form2.hide78、要想通过单击 Form2上的 Command1，从屏幕（而非内存中）上清除 Form2窗体，则可在 Command1的单击事件中，使用（ C）命令。A. Load Form2 B. Form2.ShowC. Unload Form2 D. Form2.hide79、要想通过 Form2窗体中的过程调用 Form1
11、窗体中的 Public 变量 Stu，则可用（D）方式实现。A. Form1.Stu B. Form2.Stu C. Stu D. Form2.Form1.Stu80、若要在图片框中绘制一个椭圆，可使用（A ）方法来实现。A. Circle B. Line C. Point D.Pset81、若要获得某一点的颜色值，可通过（C ）方法来实现。A. Circle B. Line C. Point D.Pset82、以下关于 VB中的图形坐标的度量单位的说法正确的是（ D）。A. 只有一种单位：TwipB. 只有一种单位：CmC. 只有一种单位：PointD. 可以有多种单位二、程序填空【试题 1
12、】 出售金鱼的问题：商人将养的一缸金鱼分五次出售，第一次卖出全部的一半加二分之一条；第二次卖出余下的三分之一加三分之一条；第三次卖出余下的四分之一条；第四次卖出余下的五分之一加五分之一条；最后卖出余下的 11条。问原来渔缸中共有几条鱼？Private Sub cmdSaleGoldFish_Click()Dim i, j, n, x As Integern = 0i = 23Dox = ij = 1Do While j = 11If (x + 1) Mod (j + 1) = 0) Thenx = _Elsex = 0_End Ifj = j + 1LoopIf (j = 5 And x =
13、11) ThenPrint Tab(5); “开始金鱼数为：”; in = 1End Ifi = i + 2Loop While (n = 0)End Sub【答案】59【试题 2】 在窗体上画一个命令按钮，其名称为 Command1，程序如下，先填上相应的语句，然后程序运行，单击命令按钮，并输出结果。Function M(x As Long,y As Long)As LongM=IIf(xy,x,_)End FunctionPrivate Sub _Dim a As Long,b As LongFontSize = 14: FontBold = TruePrint: Print: Print
14、a=131421b=211314Print tab(5);M(a,b)End Sub【答案】211314【试题 3】 设某四位数的各位数字的平方和等于 100，共有多少个这种四位数？Private Sub cmdFourSqr_Click()Dim a, b, c, d, i, count As Integercount = 0i = 1111FontSize = 14: FontBold = TruePrint: Print: PrintDo Until _a = i 1000b = (i Mod 1000) 100c = Int(i a * 1000 b * 100) 10)d = i Mod 10If 100 = a 2 + b 2 + c 2 + d 2 Then _
