《二级模拟答案》由会员分享，可在线阅读，更多相关《二级模拟答案（12页珍藏版）》请在金锄头文库上搜索。
1、单选题1. 表达式554*8 Mod 9的值是_A _。2. 函数String(3, str)输出_sss_。3. 够获得文本框中被选取的文本内容的属性是_SelText_。4. 表达式Int(Rnd*80+2)的取值范围为_2,81_。5. 在文本框Text1中输入25，在文本框Text2中输入-15，则表达式Text1+Text2的运行结果为_25-15_。6. 语句Line (100, 100)-Step(400, 400) 将在窗体上的 B 画一条直线。7. 在窗体的通用声明段自定义数据类型card，下列定义方式中_是正确的。8. 下列叙述中正确的是_A_。9. 在VB中，根据变量命名
2、的规则，_C_是正确定义的变量名。10.语句If a=1 Then b=1 ,下面说法正确的是_B_。11.若要使标签控件显示时不覆盖窗体的背景图案，要对_C_属性进行设置12.在下列关于菜单的说法中，正确的是_D_。13.程序运行后，在窗体上单击鼠标，此时窗体不会触发下列_A_事件。14.要使当前Form1窗体的标题栏显示“欢迎使用VB” ，以下_C_语句是正确的15.以下关于VB的叙述中不正确的是_B_。填空题1. 的VB表达式为_Sqr(Abs(3 * X + z) / (X - Log(Y)_。yxzln|3|2. 当对文本框的ScrollBars 属性设置为有垂直滚动条，但没有垂直滚
3、动条显示，原因是没有将 _Multiline_属性设置为True。3. 对于窗体上的菜单按钮，如果要将其隐藏，应将_Visible_属性设置为False。4. 要在窗体上通过Pset方法绘制宽度为2的点，则需要设置窗体的_DrawWidth_属性。5. 用户在图形框上双击鼠标，系统会激活_Click 和 DblClick_事件。6. 在程序运行时，为了使焦点自动移到命令按钮Command1上，需要使用_SetFocus_方法。7. 当组合框的_Style_属性值为2时，不允许用户在组合框中输入内容。8. 要重定义窗体坐标系为(-1, 11)-(12, -11)，则使用语句_Scale_。9.
4、在程序运行时，如果要将一幅图片加载到图形框Picture1中，可使用_LoadPicture()_函数 。10.有通用对话框控件CommonDialog1，除了用CommonDialog1.Action=3显示“颜色” 对话框以外，还可以用_ShowColor_方法显示。程序填空题1 先在Text1输入一个查找子串，然后在Text2输入替换子串，再在Text3输入任意字符串，以回车键结束输入，通过函数MyReplace来判断Text3字符串中是否包含Text1的子串。如果包含查找子串，则用替换子串替换，最后在Picture1上输出该替换后的字符串；如果不包含指定子串，则给出提示。如图所示，查找
5、子串为abc，替换子串为XY，在Text3上连续输入多个字符串，并将替换后的字符串全部输出在Picture1上。程序的思想是：在KeyPress事件中，输入字符串时，以回车键的ASCII码值判断本次输入字符串结束，开始调用MyReplace函数。在MyReplace函数中，从s串中不断截取样本串的子串与s1串比较，找到后用s2替换s1。Private Function MyReplace(s$, s1$, s2$) As BooleanDim lenS%, lenS1%, i%lenS = Len(s)lenS1 = Len(s1) For i = 1 To _(1)_ lenS If Mid
6、(s, i, lenS1) = s1 Thens = _(2)_ Left(s, i - 1) + s2 + Mid(s, i + lenS1)_ 替换子串MyReplace = _(3)_ True Exit FunctionEnd IfNext iMyReplace = FalseEnd FunctionPrivate Sub Text3_KeyPress(KeyAscii As Integer)Dim str$If KeyAscii = 13 Then 如果按了回车键str = Text3.TextIf MyReplace( _(4)_ str, Text1, Text2_ ) Then
7、Picture1.Print strElse_(5)_ MsgBox 该字符串不包含指定子串, , Cxtc3_End IfText3.Text = End IfEnd Sub2 在Text1上输入一个正整数，然后在Label1上输出它的逆序数。例如，输入：12345，输出54321。Private Sub Command1_Click()Dim n As Long, x%, m As Long, t%n = Val(Text1.Text)x = 1: m = 0: t = 0Do While_(1)_x = n _(2)_ m = m * 10 + xt = 1n =_(3)_LoopLab
8、el1.Caption = CStr(m)End Sub答案：Do While n 0x = n Mod 10 m = m * 10 + xt = t + 1n = n 10Loop3 下面程序的功能是从键盘上输入不多于100个的正整数，存放于数组a 中。当输入0或负数时，结束输入，计算出这些数的平均值m 。如果a 中元素小于m，则存放在数组a的左端；否则就存放在数组s的右端，如图所示。最后，输出全部数组元素。2 1 3 3 5 4 4 6程序的思想是：分别设置数组的左端和右端指针，比较数组a中元素与m的大小，决定存放于数组s的左端或右端，调整相应指针位置。Private Sub Comman
9、d1_Click()Dim a%(1 To 100), pLeft%, pRight%, i%, t%, n%, m!n = 0: m = 0t = InputBox(input data:)Do While_(1)_ And n 100 t0 判断结束输入标志n = n + 1a(n) = t_(2)_ m=m+a(n)t = InputBox(input data:)Loopm = m / npLeft = 1 设置数组的左端指针pRight = n 设置数组的右端指针Do While pLeft pRightIf a(pLeft) m Then 小于m_(3)_ Pleft=pleft+
10、1Else 大于m_(4)_ x = a(pRight): a(pRight) = a(pLeft): a(pLeft) = xpRight = pRight - 1End IfLoopFor i = 1 To nPrint ; a(i);Next iEnd Sub操作题参见样例，编写一个完整的程序，要求如下：1在Form1窗体上放置2个列表框， 1个标签。Form1 窗体的标题为 试卷3，按下表建立菜单：菜单标题 菜单名称 备注应用 Menu1 一级菜单产生数 Menu11 二级菜单- bar 分隔线退出 Menu12 二级菜单动画演示 Menu2 一级菜单在Form2窗体上放置2个命令按钮
11、、 1个图像框、1个标签和时钟控件（时钟个数自行决定） 。命令按钮分别显示动画开始、返回；标签显示文字同一个世界，同一个梦想；图像框装入北京奥运会图形，并调整大小。2单击产生数菜单项，随机产生 10个2位的正整数，并按从小到大的顺序显示在列表框1，标签显示10个数的和，在列表框2中显示各个数占总和的百分比（保留2位小数）。3单击退出菜单项，结束程序运行。单击动画演示菜单项，显示Form2窗体。4单击Form2窗体中的动画开始 按钮，奥运图由窗体左上角向右下角运动，当图片越出窗体，出现文字同一世界，同一梦想，自窗体右上角向左下角运动，当文字越出窗体，再出现自窗体左上角向右下角运动奥运图，如此重复交替。单击返回按钮，显示Form1。5在C:KS 目录下将工程保存为C.vbp，窗体1保存为C1.frm，窗体2保存为C2.frm。
