下面程序段执行结果为（ ）。x＝Int（Rnd（）＋3）Select Case xCase 5Print ＂excellent＂Case 4Print ＂good＂Case 3Print ＂pass＂Case ElsePrint ＂fail＂End Select

试卷相关题目

• 1建立一个新的标准模块，应该选择（ ）下的"添加模块"命令。

  A."工程"菜单

  B."文件"菜单

  C."工具"菜单

  D."编辑"菜单

  开始考试点击查看答案
• 2数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是（　　）。

  A.DB包含DBS 和DBMS

  B.DBMS 包含DB和DBS

  C.DBS 包含DB和DBMS

  D.没有任何关系

  开始考试点击查看答案
• 3下列有关子菜单的说法中，错误的是（ ）。

  A.除了Click 事件之外，菜单项不可以响应其他事件

  B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件

  C.菜单项的索引号必须从1开始

  D.菜单的索引号可以不连续

  开始考试点击查看答案
• 4下列叙述中正确的是（　　）。

  A.MsgBox 语句的返回值是一个整数

  B.执行MsgBox 语句并出现信息框后，不用关闭信息框即可执行其他操作

  C.MsgBox 语句的第一个参数不能省略

  D.如果省略MsgBox 语句的第三个参数（Title），则信息框的标题为空

  开始考试点击查看答案
• 5在软件开发中，需求分析阶段可以使用的工具是（　　）。

  A.N －S 图

  B.DFD 图

  C.PAD 图

  D.程序流程图

  开始考试点击查看答案
• 6数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是（　　）。

  A.控制流

  B.加工

  C.数据存储

  D.源和潭

  开始考试点击查看答案
• 7假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（　　）。

  A.Label1．BackStyle ＝0Label1．BorderStyle ＝0

  B.Label1．BackStyle ＝1Label1．BorderStyle ＝1

  C.Label1．BackStyle ＝TrueLabel1．BorderStyle ＝True

  D.Label1．BackStyle ＝FalseLabel1．BorderStyle ＝False

  开始考试点击查看答案
• 8关于MDI 窗体，下列说法正确的是（　　）。

  A.一个应用程序可以有多个MDI 窗体

  B.子窗体可以移到MDI 窗体以外

  C.不可以在MDI 窗体上放置按钮控件

  D.MDI 窗体的子窗体不可以拥有菜单

  开始考试点击查看答案
• 9在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：Di mSW As BooleanFunction func（X As Integer）As IntegerIf X＜20ThenY ＝XElseY ＝20＋XEnd Iffunc ＝YEnd FunctionPrivate Sub Form＿MouseDown（Button As Integer ，＿Shift As Integer ，X As Si ngle ，Y As Si ngle）SW＝FalseEnd SubPrivate Sub Form＿Mouse Up（Button As Integer ，＿Shift As Integer ，X As Si ngle ，Y As Si ngle）SW＝TrueEnd SubPrivate Sub Co mmand1＿Click（）Di mi nt Num As Integeri nt Num＝InputBox（＂＂）If SW ThenPrint func（i nt Num）End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为（　　）。

  A.输出0

  B.输出25

  C.输出45

  D.无任何输出

  开始考试点击查看答案
• 10设窗体上有一个标签Labell 和一个计时器Ti mer1，Ti mer1的Interval 属性被设置为1000，Enabled 属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（ ）。

  A.Private Sub Ti mer1＿Ti mer（）Label1．Caption ＝TrueEnd Sub

  B.Private Sub Ti mer1＿Ti mer（）Label1．Caption ＝Ti me$End Sub

  C.Private Sub Ti mer1＿Ti mer（）Label1．Interval ＝1End Sub

  D.Private Sub Ti mer1＿Ti mer（）For k ＝l To Ti mer1．IntervalLabel1．Caption ＝Ti mer Next kEnd Sub

  开始考试点击查看答案