VB期末考试上机模拟题(附代码)

一 基本操作题 请根据以下各小题的要求设计 Visual Basic 应用程序 包括界面和代码 1 在名称为 Form1 的窗体上画一个名称为 Chk1 的复选框数组 Index 属性从 0 开始 含三个复选框 其标题分别为 语文 数学 英语 利用属性窗口设置适当的属 性 使 语文 未选 数学 被选中 英语 为灰色 再把窗体的标题设置为 选 课 程序运行时的窗体界面如图所示 2 在名称为窗体上画一个命令按钮 其名称为 Cmd1 标题为 清除 请编写适当的事 件过程 使得程序运行后 窗体上的标题为 VB 期末上机考试 如图 1 所示 如单 击命令按钮 则清除窗体的标题 程序运行时的窗体界面如图 2 所示 Private Sub Command1 Click Form1 Caption End Sub Private Sub Form Load Form1 Caption VB 期末考试 End Sub 图 1 图 2 3 在名称为 Form1 的窗体上画一个命令按钮 其名称为 Cmd1 标题为 移到左上 编 写适当的事件过程 使程序运行时 如单击命令按钮 则按钮移到窗体的左上角 程序中 不得使用任何变量 程序运行时的窗体界面如图 Private Sub Command1 Click Command1 Top 0 Command1 Left 0 End Sub 4 在名称为 Form1 的窗体上建立一个名称为 L1 的标签 标题为 选课 其字号大小为 4 号 再建立三个复选框 名称分别为 Chk1 Chk2 Chk3 标题分别为 操作系统 数 据库原理 和 概率论 字体大小均为 14 其中 概率论 被禁用 运行界面如图 5 在 Form1 的窗体上画一个命令按钮 其名称为 Cmd1 标题为 显示 再画一个文本 框 其名称为 Txt1 编写适当的事件过程 程序运行后 在窗体加载时使文本框不可见 如双击窗体 则文本框出现 此时如单击命令按钮 则在文本框中显示 期末考试 如图 所示 Private Sub Command1 Click Text1 Text 期末考试 End Sub Private Sub Form DblClick Text1 Visible True End Sub Private Sub Form Load Text1 Visible False End Sub 6 在名称为 Form1 的窗体上 画一个组合框和一个命令按钮 组合框的名称为 Cbo1 初 始内容为空 有 长跑 游泳 和 跳远 三个可供选择项 命令按钮的名称为 Cmd1 Opt2 标题为 确定 编写适当的事件过程 使得程序运行时 选择组合框中的 某项 单击命令按钮后 就会弹出一个对话框 内容为 您选择了 该项 程序中不得 使用任何变量 程序运行时的窗体界面如图所示 Private Sub Command1 Click MsgBox 你选择了 Next i End Sub 5 单击命令按钮 command1 在 Label1 中随机产生 10 个 25 99 的随机整数 单击命令按 钮 command2 在 Label2 中对产生的 10 个随机整数按升序排序 单击命令按钮 command3 则结束程序运行 Dim num 1 To 10 Public Sub Command1 Click For i LBound num To UBound num num i Int Rnd 75 25 Label1 Caption Label1 Caption num i Next i End Sub Public Sub Command2 Click For j LBound num To UBound num For k j 1 To UBound num If num j num k Then z num j num j num k num k z End If Next k Next j For l LBound num To UBound num