问答题

完成下列问题：
考生文件夹下有一个工程文件sjt3.vbp，其中的窗体上有一个名称为Cmd的命令按钮控件数组；有一个名称为Image1的图像框。请画一个名称为Timer1的计时器，时间间隔为3s，初始状态为不可用，如图3所示。


程序功能如下：
单击“前进”按钮，则Timer1的状态变为可用，且在图像框中显示3s黄灯(图像文件为考生文件夹下的yellow.ico)后，显示绿灯(图像文件为考生文件夹下的green.ico)直至下次单击某个命令按钮。
单击“停止”按钮，则Timer1的状态变为可用，且在图像框显示3s黄灯后，显示红灯(图像文件为考生文件夹下的red.ico)直至下次单击某个命令按钮。
单击“结束”按钮，则结束程序执行。
在横线处填写正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
[题目提供的源程序]
Dim flag As Integer
Private Sub Cmd_Click(Index As Integer)
If Index= (1) Then
End
Else
’考生文件夹下的图片文件
Image1.Picture=LoadPicture("yellow.ico")
flag=Index
Timer1.Enabled= (2)
End If
End Sub
Private Sub Timer1_Timer()
Select Case (3)
Case 0
Image1.Picture=LoadPicture("green.ico")
Timer1.Enabled=False
Case 1
Image1.Picture=LoadPicture("red.ico")
Timer1.Enabled=False
End Select
End Sub

【参考答案】

[操作步骤]
第1步：打开工程文件sjt3.vbp。
第2步：添加计时器控件。在窗体上画一个计时器控......

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

问答题
考生文件夹下有一个工程文件sjt4.vbp，其中的窗体上已有如图4所示的控件。程序功能如下： ①单击“读数据”按钮，则将考生文件夹下in4.dat文件内容(该文件中仅含有字母和空格)显示在Text1文本框中。 ②在Text1中选中部分文本，并单击“统计”按钮，则以不区分大小写字母的方式，自动统计选中文本中同时出现“o”、“n”两个字母单词的个数(如：million、company都属于满足条件的单词)，并将统计结果显示在Text2文本框内。 在横线处填写正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 [题目提供的源程序] Dim s As String Private Sub Command1_Click() Open App.Patb & in4.dat For Input As #1 s=Input(LOF(1),#1) Close #1 Text1.Text=s End Sub Private Sub Command2_Click() Dim m As Integer If Len(s)= (1) Then MsgBox 请先使用 读数据 功能! Else If Text1. (2) =0 Then MsgBox 请先选中文本! Else t= For i=1 To Text1.SelLength c=Mid(Text1.SelText,i,1) If c＜＞ Then t=t+c Else x= (3) If InStr(x, o ) ＜＞ 0 And InStr(x, n ) ＜＞ 0 Then m=m+1 End If t= End If Next i (4) =Str(m) End If End If End Sub
问答题
在考生文件夹下有一个工程文件sjt5.vbp，其功能是： 单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中； 单击“素数”按钮，则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b中，并将数组b中的元素显示在文本框Text2中。 在给出的窗体文件中已经有了全部控件(如图5所示)，但程序不完整。 要求：完善程序使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行“素数”操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。 [题目提供的源程序] Option Base 1 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & in5.dat For Input As #1 For k=1 To 100 Input #1, a(k) Text1=Text1+Str(a(k))+Space(2) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num=0 If Len(Text1.Text)=0 Then MsgBox 请先执行 读数据 功能! Else ’考生应编写的程序(功能:生成存放素数的数组b) ’注意：请务必将数组b的元素个数存入变量num中 ’以下程序段将b数组的内容显示在Text2中 For i=1 To num Text2.Text=Text2.Text+Str(b(i))+Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & out5.dat For Output As #1 Print #1, Text2.Text Close #1 End Sub
相关试题