《二级模拟答案》由会员分享,可在线阅读,更多相关《二级模拟答案(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。