计算机模拟题1

  • 格式:doc
  • 大小:95.50 KB
  • 文档页数:10

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事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(D).A、"Caption"、"Label"B、"Label"、"Label"C、"Label1"、"Visual Basic"D、"Label1"、"Label1"6.下列对象中没有焦点属性的是(B).A、单选框控件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、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、=+B、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)+I\J+13/3 MOD 5,则I值是__-1___.19. '【程序改错】'------------------------------------------------'题目:以下程序段用于计算货物运费。

设货物运费每吨' 单价p元与运输距离s公里之间有如下关系:'------------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim w!, s!Dim p As Currency, t As Currencyw = InputBox("请输入货物重量")s = InputBox("请输入托运距离")Select Case sCase Is < 100p = 30'**********ERROR**********Case Is <= 200 and Is>=100p = 27.5Case Is < 300p = 25Case Is < 400p = 32.5'**********ERROR**********Elsep = 20'**********ERROR**********End Ift = p * w * sPrint "总运费:"; t; "元"End Sub【改错1】错误【学生答案】Case Is <= 200 and Is>=100【参考答案】Case Is < 20020. '------------------------------------------------'【程序改错】'------------------------------------------------'题目:统计一顺序文件test.txt中的空格、字母、数字和其它字符个数。

'------------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构'------------------------------------------------Private Sub Command1_Click()Dim s As String, C As StringDim 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 Until EOF(0)Line Input #1, sL = Len(s)For I = 1 To LC = Mid(s, I, 1)If C >= "a" And C <= "z" Or C >= "A" And C <= "Z" Thencharacter = character + 1ElseIf C = " " Thenspac = spac + 1'**********ERROR**********ElseIf C >= "0" And C < "9" Thendigit = digit + 1Elseother = other + 1End IfNext ILoopClose #1Print "字符个数为:"; character; "数字个数为:"; digitPrint "空格个数为:"; spac; "其它个数为:"; otherEnd Sub【改错1】错误【学生答案】Open App.Path & "\text.txt" For Output As #1【参考答案】Open App.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结束)"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle))'**********Fill**********do While 【?】total = total + 1'**********Fill**********Select Case 【?】Case Is >= 90n1 = n1 + 1Case Is >= 80n2 = n2 + 1Case Is >= 70n3 = n3 + 1Case Is >= 60n4 = n4 + 1Case Elsen5 = n5 + 1'**********Fill**********【?】score = Val(InputBox(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 = "请输入分数(-1结束)"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle))'**********FILL**********While _____total = total + 1'**********FILL**********Select Case _____Case Is >= 90n1 = n1 + 1Case Is >= 80n2 = n2 + 1Case Is >= 70n3 = n3 + 1Case Is >= 60n4 = n4 + 1Case Elsen5 = n5 + 1'**********FILL**********_____score = Val(InputBox(msg, msgtitle))WendPrint n1, n2, n3, n4, n5, totalEnd Sub【参考答案】score>=0 and score<=100score<=100 and score>=0------------------------------------------------ 【窗体设计】------------------------------------------------题目:请按照题目要求设计指定的窗体。