二级模拟答案.doc

单选题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中，根据变量命名的规则，_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)_。2. 当对文本框的ScrollBars 属性设置为有垂直滚动条，但没有垂直滚动条显示，原因是没有将 _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. 在程序运行时，如果要将一幅图片加载到图形框Picture1中，可使用_LoadPicture()_函数 。10. 有通用对话框控件CommonDialog1，除了用CommonDialog1.Action=3显示“颜色”对话框以外，还可以用_ShowColor_方法显示。程序填空题1 先在Text1输入一个查找子串，然后在Text2输入替换子串，再在Text3输入任意字符串，以回车键结束输入，通过函数MyReplace来判断Text3字符串中是否包含Text1的子串。如果包含查找子串，则用替换子串替换，最后在Picture1上输出该替换后的字符串；如果不包含指定子串，则给出提示。如图所示，查找子串为abc，替换子串为XY，在Text3上连续输入多个字符串，并将替换后的字符串全部输出在Picture1上。程序的思想是：在KeyPress事件中，输入字符串时，以回车键的ASCII码值判断本次输入字符串结束，开始调用MyReplace函数。在MyReplace函数中，从s串中不断截取样本串的子串与s1串比较，找到后用s2替换s1。Private Function MyReplace(s$, s1$, s2$) As Boolean Dim lenS%, lenS1%, i% lenS = Len(s) lenS1 = Len(s1) For i = 1 To _(1)_ lenS If Mid(s, i, lenS1) = s1 Then s = _(2)_ Left(s, i - 1) + s2 + Mid(s, i + lenS1)_ 替换子串 MyReplace = _(3)_ True Exit Function End If Next i MyReplace = FalseEnd FunctionPrivate Sub Text3_KeyPress(KeyAscii As Integer) Dim str$ If KeyAscii = 13 Then 如果按了回车键 str = Text3.Text If MyReplace( _(4)_ str, Text1, Text2_ ) Then Picture1.Print str Else _(5)_ MsgBox 该字符串不包含指定子串, , Cxtc3_ End If Text3.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 = 0 Do While_(1)_ x = n _(2)_ m = m * 10 + x t = 1 n =_(3)_ Loop Label1.Caption = CStr(m)End Sub答案：Do While n 0 x = n Mod 10 m = m * 10 + x t = t + 1 n = n 10 Loop3 下面程序的功能是从键盘上输入不多于100个的正整数，存放于数组a中。当输入0或负数时，结束输入，计算出这些数的平均值m。如果a中元素小于m，则存放在数组a的左端；否则就存放在数组s的右端，如图所示。最后，输出全部数组元素。21335446程序的思想是：分别设置数组的左端和右端指针，比较数组a中元素与m的大小，决定存放于数组s的左端或右端，调整相应指针位置。Private Sub Command1_Click() Dim a%(1 To 100), pLeft%, pRight%, i%, t%, n%, m! n = 0: m = 0 t = InputBox(input data:) Do While_(1)_ And n 100 t0 判断结束输入标志 n = n + 1 a(n) = t _(2)_ m=m+a(n) t = InputBox(input data:) Loop m = m / n pLeft = 1 设置数组的左端指针 pRight = n 设置数组的右端指针 Do While pLeft pRight If a(pLeft) m Then 小于m _(3)_ Pleft=pleft+1 Else 大于m _(4)_ x = a(pRight): a(pRight) = a(pLeft): a(pLeft) = x pRight = pRight - 1 End If Loop For i = 1 To n Print ; a(i); Next iEnd Sub操作题参见样例，编写一个完整的程序，要求如下：1在Form1窗体上放置2个列表框，1个标签。Form1窗体的标题为试卷3，按下表建立菜单：菜单标题菜单名称备注应用Menu1一级菜单产生数Menu11二级菜单-bar分隔线退出Menu12二级菜单动画演示Menu2一级菜单在Form2窗体上放置2个命令按钮、1个图像框、1个标签和时钟控件（时钟个数自行决定）。命令按钮分别显示动画开始、返回；标签显示文字同一个世界，同一个梦想；图像框装入北京奥运会图形，并调整大小。2单击产生数菜单项，随机产生 10个2位的正整数，并按从小到大的顺序显示在列表框1，标签显示10个数的和，在列表框2中显示各个数占总和的百分比（保留2位小数）。3单击退出菜单项，结束程序运行。单击动画演示菜单项，显示Form2窗