问答题


【参考答案】

[解析] 控件已经建立完好，只需设计事件过程即可。
TimerA控件的Interval属性是用来控制计时器事件......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

问答题
[解析] 在窗体上建立好控件后，先设置控件的属性，再编写事件过程。 素数的判断准则就是看是否该数除了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 第三步：调试并运行程序。 第四步：按题目要求存盘。
问答题
注意：下面出现的“”均为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。
相关试题