注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存

admin2012-10-09  32

问题 注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
   (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
   本题描述如下:
   在窗体上有一个名称为Text1的文本框,一个名称为C1,标题为“校验”的命令按钮。其中文本框用来输入口令,如图5-3所示,要求在文本框中输入的内容都必须以“”显示(请考生通过属性窗口设置)。要求程序运行后,输入口令,单击命令按钮后,对口令进行校验。如果输入的内容是“ABC”这3个大写字母,则用MsgBox信息框输出“正确”,否则输出“错误”,如图5-4所示。
   (2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
   本题描述如下:
   在窗体上有3个名称分别为Ch1、Ch2和Ch3的复选框,标题依次为“程序设计”、“数据库原理”和“计算机网络”,还有一个名称为C1,标题为“选课”的命令按钮,如图5-5所示。要求程序运行后,如果选择某个复选框,当单击命令按钮时在窗体上输出相应的信息。例如:如果选择“程序设计”和“数据库原理”复选框,单击命令按钮后,将在窗体上显示“我选的课程是程序设计数据库原理”。

选项

答案(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 单击命令按钮或窗体触发的是Click事件,因此,程序中应该编写命令按钮的Click事件过程,按钮的标题通过Caption属性设置;要使文本框的内容在输入时显示为“*”,则应该将PasswordChar属性设置为“*”。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表5-3。 [*] 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() ’ If Text1.Text = "?" Then MsgBox "?" Else MsgBox “错误” End Sub 参考代码: Option Explicit Private Sub C1_Click() If Text1.Text = "ABC" Then MsgBox “正确” Else MsgBox "错误" End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)建立好控件后,先设置控件属性,再编写事件过程。 复选框用来表示状态,在程序运行期间可以改变其状态。复选框的标题由Caption属性来设置,复选框的Value属性用来表示复选框的状态。其取值有如下几种: 0:表示复选框未被选中; 1:表示选中该复选框; 2:表示该复选框被禁止(灰色)。 在窗体上打印信息用Print方法,单击命令按钮触发的是Click事件。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表5-4。 [*] 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() Dim s As String s=“我选的课程是” If Ch1.Value = 1 Then s=s &“程序设计” End If If Ch2.Value = 1 Then s=s &“数据库原理” End If If Ch3.Value = 1 Then ’s = s & Ch3.? End If ’ Print ? End Sub 参考代码: Option Explicit Private Sub C1_Click() Dim s As String s=“我选的课程是” If Ch1.Value = 1 Then s= s &“程序设计” End If If Ch2.Value=1 Then s=s &“数据库原理” End If If Ch3.Value=1 Then s=s & Ch3.Caption End If Print s End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。

解析
转载请注明原文地址:https://jikaoti.com/ti/iDO0FFFM
0

随机试题
最新回复(0)