计算机模拟题1

1、1.事件的名称(A).A、都是由系统预先定义B、有的由用户定义,有的由系统定义C、是不固定的D、都要由用户定义 2.在程序代码中修改滚动条的value 属性时将激发滚动条的(A)事件.A、changeB、gotfocusC、scrollD、dragdrop3.要在窗体上显示图片,需设置窗体的(C)属性.A、ControlBoxB、CaptionC、PictureD、Icon4.以下叙述中错误的是(D).A、移动鼠标时,会触发MouseMove事件B、双击鼠标可以触发DblClick事件C、控件的名称可以由编程人员设定D、窗体或控件的事件的名称可以由编程人员确定5.在窗体Form1的Click事

2、件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(D).A、"Caption"、"Label"B、"Label"、"Label"C、"Label1"、"Visual Basic"D、"Label1"、"Label1"6.下列对象中没有焦点属性的是(B).A、单选框

3、控件B、窗口控件C、文本框控件D、命令按钮控件7.语句PRINT"INT(-13.2)="INT(-13.2)的输出结果为(B).A、INT(-13.2)=-13.2B、INT(-13.2)=-14C、INT(-13.2)=-13D、INT(-13.2)=13.28.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为(D).A、&B、*C、=D、-9.MSGBOX函数中有4个参数,其中必须写明的参数是(D).A、指定对话框中显示按钮的数目B、设置对话框标题C、所有参数都是可选的D、提示信息10.要想返回文本框中输入的内容则可利用其(C)属性进行编程.A、

4、righttoleftB、captionC、textD、name11.任何控件都具有的属性是(A).A、NAMEB、TEXTC、CAPTIOND、FORECOLOR12.假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(B).A、BOOLVAR=#TRUE#B、BOOLVAR=3<4C、BOOLVAR=.TRUE.D、BOOLVAR='TRUE'13.要获得当前驱动器应使用驱动器列表框的哪个属性(C).A、DirB、PathC、DriveD、Patten14.下列赋值语句正确的是(C).A、T=Text1.Name+Text2.NameB、

5、Text1.Enable=Text1.Enable+Text2.EnableC、Text1.text=Text1.text+Text2.textD、Text1.Caption=Text1.Caption+Text2.Caption15.表达式25.28Mod6.99的值是(C).A、5B、1C、4D、出错16. X=2:Y=8:PRINT X+Y=10的结果是_True_.17. 在过程调用中,参数的传递可分为两种方式,其中按_地址_传递方式是默认的._.18. 如果:I=12:J=3:I=int(-8.6)+IJ+13/3 MOD 5,则I值是_-1_.19. '【程序改错】'

6、;-'题目：以下程序段用于计算货物运费。设货物运费每吨' 单价p元与运输距离s公里之间有如下关系：'-'注意：不可增加或删除程序行，也不可以更改程序结构'-Private Sub Form_Click()Dim w!, s!Dim p As Currency, t As Currencyw = InputBox("请输入货物重量")s = InputBox("请输入托运距离")Select Case s Case Is < 100 p = 30'*ERROR* Case Is <= 200 an

7、d Is>=100 p = 27.5 Case Is < 300 p = 25 Case Is < 400 p = 32.5'*ERROR* Else p = 20'*ERROR*End Ift = p * w * sPrint "总运费:" t; "元"End Sub【改错1】错误【学生答案】Case Is <= 200 and Is>=100【参考答案】Case Is < 20020. '-'【程序改错】'-'题目：统计一顺序文件test.txt中的空格、字母、数字和

8、其它字符个数。'-'注意：不可增加或删除程序行，也不可以更改程序结构'-Private Sub Command1_Click() Dim s As String, C As String Dim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer, other As Integer '*ERROR* Open App.Path & "text.txt" For Output As #1 '*ERROR* Do U

9、ntil EOF(0) Line Input #1, s L = Len(s) For I = 1 To L C = Mid(s, I, 1) If C >= "a" And C <= "z" Or C >= "A" And C <= "Z" Then character = character + 1 ElseIf C = " " Then spac = spac + 1 '*ERROR* ElseIf C >= "0" And C &

10、lt; "9" Then digit = digit + 1 Else other = other + 1 End If Next I Loop Close #1 Print "字符个数为：" character; "数字个数为：" digit Print "空格个数为：" spac; "其它个数为：" otherEnd Sub【改错1】错误【学生答案】Open App.Path & "text.txt" For Output As #1【参考答案】Open App.

11、Path & "text.txt" For Input As #1Open "text.txt" For Input As #1四、【程序填空】'-'题目：从键盘输入学生分数，统计学生总人数和各分数段人数，' 即优秀（90-100）、良好（80-89）、中等（70-79）、' 及格（60-69）、不及格（60以下）的人数。'-Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = "请输入分数（-1结束）"msgt

12、itile = "输入数据"score = Val(InputBox(msg, msgtitle)'*Fill*do While 【?】 total = total + 1'*Fill* Select Case 【?】 Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1'*Fill* 【?】score = Val(InputBox

13、(msg, msgtitle)loopPrint n1, n2, n3, n4, n5,totalEnd Sub【参考答案】score >=0 And score <= 1000<=score And score <= 1002. '从键盘输入学生分数，统计学生总人数和各分数段人数，'即优秀（90-100）、良好（80-89）、中等（70-79）、' 及格（60-69）、不及格（60以下）的人数。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = "请输入分数

14、（-1结束）"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle)'*FILL*While _ total = total + 1'*FILL* Select Case _ Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1'*FILL* _score = Val(I

15、nputBox(msg, msgtitle)WendPrint n1, n2, n3, n4, n5, totalEnd Sub【参考答案】score>=0 and score<=100score<=100 and score>=0-【窗体设计】-题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。 -1、在窗体内添加1个按钮(Command1)，3个文本框(Text1， Text2，Text3)，1个组合框(Combo1)，3个标签(Label1， Label2，Label3)。 2、窗体设置： 设置窗体名称(Name)为"Form20"

16、。 设置窗体标题(Caption)为"计算器"。 3、标签设置： 设置第1个标签(Label1)的标题(Caption)为"第一个数"。 设置第2个标签(Label2)的标题(Caption)为"第二个数"。 设置第3个标签(Label3)的标题(Caption)为"计算结果"。 4、文本框设置： 适当设置3个文本框的大小和位置。 5、组合框设置： 设置组合框(Combo1)的文本(Text)为"运算符号"。 6、按钮设置： 设置按钮(Command1)的标题为"="。【控件

17、属性评分】错误 【控件】VB.CommandButton_Command1 标准答案：Name=Command1 学生答案：Name=【控件属性评分】错误 【控件】VB.TextBox_Text1 标准答案：Name=Text1 学生答案：Name=【控件属性评分】错误 【控件】VB.TextBox_Text2 标准答案：Name=Text2 学生答案：Name=【控件属性评分】错误 【控件】VB.TextBox_Text3 标准答案：Name=Text3 学生答案：Name=【控件属性评分】错误 【控件】VB.ComboBox_Combo1 标准答案：Name=Combo1 学生答案：Nam

18、e=【控件属性评分】错误 【控件】VB.Label_Label1 标准答案：Name=Label1 学生答案：Name=【控件属性评分】错误 【控件】VB.Label_Label2 标准答案：Name=Label2 学生答案：Name=【控件属性评分】错误 【控件】VB.Label_Label3 标准答案：Name=Label3 学生答案：Name=【窗体属性评分】错误 【窗体】结果文档.FRM 标准答案：Name=Form20 学生答案：Name=【窗体属性评分】错误 【窗体】结果文档.FRM 标准答案：Caption=计算器 学生答案：Caption=【控件属性评分】错误 【控件】VB.Label_Label3 标准答案：Caption=计算结果 学生答案：Caption=【控件属性评分】错误 【控件】VB.Label_Label2 标准答案：Caption=第二个数 学生答案：Caption=【控件属性评分】错误 【控件】VB.Label_Label1 标准答案：Caption=第一个数 学生答案：Caption=【控件属性评分】错误 【控件】VB.ComboBox_Combo1 标准答案：Text=运算符号 学