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

精品文档 1欢迎下载 一 基本操作题 请根据以下各小题的要求设计 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 其中 概率论 被禁用 运行界面如图 精品文档 2欢迎下载 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 精品文档 11欢迎下载 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 Label2 Caption Label2 Caption num l Next l End Sub Private Sub Command3 Cli