问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画一个标签,名称为L1,标签上显示“请输入密码”,在标签的右边画一个文本框,名称为Text1,其宽和高分别为2000和300,设置适当的属性使得在输入密码时,文本框中显示“*”字符,此外再把窗体的标题设置为“密码窗口”,以上这些设置都只能在属性窗口中进行设置,运行时的窗体如图20-1所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2) 在名称为Form1的窗体上画一个图片框,名称为P1。请编写适当的事件过程,使得在运行时,每单击图片框一次,就在图片框中输出“单击图片框”一次,每单击图片框外的窗体一次,就在窗体中输出“单击窗体”一次,如图20-2所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

【参考答案】

[解析] 在窗体上建立好控件后,只需设置控件的属性即可。
在设置属性时标签的名称由Name属性设置,内容由Ca......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

问答题
[解析] 控件已经建立完好,只需设计事件过程即可。 TimerA控件的Interval属性是用来控制计时器事件发生的时间间隔,通过题意可知该属性设置为A00(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时,把计时器控件的Enabled属性设置为True。如果使航天器即PA停止移动,需要将计时器控件的Enagled属性设置为False。解题步骤: 第一步:建立界面并设置控件属性。程序用到的控件及其属性见表B0-C。 表 B0-C 控 件 属 性 设 置 值 命令按钮 Name Cption CA 发射 图片框 Name Picture pB 图片框 Name Picture PA 计时器 Name Interval TimerA A00 第二步:编写程序代码。 程序提供的代码: Private Sub CA_Click() ’ TimerA.Enabled= End Sub Private Sub TimerA_Timer() Static a% a=a+A ’ If PA.Top>PB.Top+PB. Then PA.Move PA.Left, PA.Top-E-a, PA.Width, PA.Height Else ’ TimerA.=False End If End Sub 参考代码: Private Sub CA_Click() TimerA.Enabled=True End Sub Private Sub TimerA_Timer() Static a% a=a+A If PA.Top>PB.Top+PB.Height Then PA.Move PA.Left, PA.Top-E-a, PA.Width, PA.Height Else TimerA.Enabled=False End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (B) [解析] 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在文本框里显示的内容通过文本框的Text属性设置。Value属性用来表示复选框后单选框的状态。对于单选框来说,Value属性可设置为True或False当设置为True时,该单选按钮是被选中的,否则该单选按钮没有被选中。对于复选框来说,Value属性可以设置为0、A或B。其中:0—表示没有选中该复选框;A—表示选中该复选框;B—表示该复选框被禁止(灰色)。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表B0-D。 表 B0-D 对 象 属 性 设 置 值 复选按钮 Name Cption ChA 体育 复选按钮 Name Cption ChB 音乐 单选按钮 Name Cption OpA 男生 单选按钮 Name Cption OpA 女生 文本框 Name TextA 文本框 Name TextB 命令按钮 Name Cption CA 确定 第二步:编写程序代码。 参考代码: 程序提供的代码: Private Sub Form_Unload(Cancel As Integer) Open outD.txt For Output As #A Print #A, OpA.Value, OpB.Value, TextA.Text Print #A, ChA.Value, ChB.Value, TextB.Text Close #A End Sub 参考代码: Private Sub CA_Click() If OpA.Value Then TextA.Text= 我是 & OpA.Caption Else TextA.Text= 我市 & OpB.Caption End If TextB.Text= 我的爱好是 If ChA.Value=A Then TextB.Text=TextB.Text & ChA.Caption End If If ChB.Value=A Then TextB.Text=TextB.Text & ChB.Caption End If End Sub Private Sub Form Unload(Cancel As Integer) Open outD.txt For Output As #A Print #A, OpA.Value, OpB.Value, TextA.Text Print #A, ChA.Value, ChB.Value, TextB.Text Close #A End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
问答题
[解析] 在窗体上建立好控件后,先设置控件的属性,再编写事件过程。 素数的判断准则就是看是否该数除了A和其本身外别无其他约数(即从B到n-A之间没有可以将其整除的数)即可,变量 flag是用于保留判断数是否是素数的结果的,值有True和False两个(从程序中可以看出)所以应将其定义为布尔型(Boolean),并且在函数中判断完之后,将flag的值赋给函数过程isprime的名字。 文本框用Text属性来显示计算机结果,其形式为: 文本框名.Text=要显示的内容 将数据写入文件可用命令Write#或Print#,本程序中用的是后者,其形式为: Pint#文件号,[输出列表]。 解题步骤: 第一步:建立界面并设置控件属性。 程序中用到的控件及其属性值见表B0-E。 表 B0-E 对 象 属 性 设 置 值 文本框 Name TextA 命令按钮 Name Cption CA 计算 命令按钮 Name Cption CB 存盘 第二步:编写程序代码。 程序中提供的代码: Private Function isprime(a As Integer) As Boolean ’ Dim flag As flag=True b%=B Do While b%<=Int(a B) And flag If Int(a b%)=a b% Then flag=False Else b%=b%+A End If ’ isprime=flag End Function Private Sub CA_Click() Dim i As Integer i=AH000 Do i=i-A Loop Until isprime(i) ’ TextA.=i End Sub Private Sub CB_Click() Open outE.txt For Output As #A Print #A, TextA.Text Close #A End Sub 参考代码: Private Function isprime(a As Integer) As Boolean Dim flag As Boolean flag=True b%=B Do While b%<=Int(a B) And flag If Int(a b%)=a b% Then flag=False Else b%=b%+A End If Loop isprime=flag End Function Private Sub CA_Click() Dim i As Integer i=AH000 Do i=i-A Loop Until isprime(i) TextA.Text=i End Sub Private Sub CB_Click() Open outE.txt For Output As #A Print #A, TextA.Text Close #A End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。