问答题

在Form1的窗体上画一个名称为Cmd1的命令按钮，然后建立一个新主菜单，标题为“操作”，名称为Opt。该菜单有两个子菜单，其标题分别为“显示”和“隐藏”，其名称分别为Dis和Con(如图所示)。编写适当的事件过程，使程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示命令按钮；如果单击“隐藏”命令，则命令按钮消失。
程序运行时的窗体界面如下图所示。

【参考答案】

第一步：建立工程和添加窗体。
单击考试界面的“功能”选项，从弹出的菜单中选择&ldqu......

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

问答题
在考生文件夹下有一个工程文件djks024.vbp，其窗体上有一个文本框，名称为Text1，可以多行显示；有一个名称为ComDia的通用对话框；还有三个命令按钮，名称分别为Cmd1、Cmd2、Cmd3，标题分别为“打开”、“转换”、“存盘”。如下图所示。 命令按钮的功能是：单击“打开”按钮，弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in024.txt文件后，该文件中的内容显示在Text1中；单击“转换”按钮，程序将把Text1中的所有小写英文字母转换成大写，所有大写字母转换为小写；单击“存盘”按钮，把Text1中的内容存入考生文件夹下的out024.txt文件中。窗体模块中的程序是不完整的。请去掉程序中的注释符，把程序中的改为正确的内容。但不能修改程序的其他部分，也不能修改控件的属性。 注意： 考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in024.txt文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的out024.txt文件中，否则无成绩。 程序运行时的窗体界面如下图所示。 [试题源程序] 1 Private Sub Cmd1_Click() 2 Dim a As String 3 ComDia.Filter=“所有文件｜**｜文本文件｜*.txt｜word文件｜*.doc” 4 ’ComDia.FilterIndex=（1） 5 ’ComDia.Action=（2） 6 ’Open ComDia.（3）For Input As #1 7 Input #1，a 8 Close #1 9 Text1.Text=a a)End Sub 10 Private Sub Cmd2_Click() 11 Dim a As String 12 Dim b As String 13 Dim C As String 14 Dim i As Integer 15 Dim n As Integer 16 a=Text1.Text 17 b= ’ 18 n=Asc( a )-Asc( A ) 19 For i=1 To Len(a) 20 C=Mid$(a，i，1) 21 If C＞= a And C＜= z Then 22 C=（4）(1，Asc(c)-n) 23 ElseIf c＞= A And C＜= Z Then 24 c=String(1，Asc(c)十n) 25 End If 26 b=b+c 27 Next i 28 Text1.Text=b 29 End Sub 30 Private Sub Cmd3_Click() 31 ComDia.FileName= out024.txt 32 ’ComDia.Action=（5） 33 Open ComDia.FileName For Output As #1 34 Print # 1，Text1.Text 35 Close # 1 36 End Sub
问答题
在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有的控件。程序的作用是构成一个简单的闹钟。刚运行时，不计时，选择一个单选按钮后，再单击“计时”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次，还是每10秒显示一次。Text2用于显示秒，如图所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的改为正确的内容。 注意：不得修改已经给出的程序。最后把修改后的文件按原文件名保存。 [试题源程序] 1 Dim num 2 Private Sub Command1_Click() 3 Timer1.Enabled=True 4 End Sub 5 Private Sub Timer1_Timer() 6 ’num= 7 If num＜60 Then 8 If Option1.Value=True Then i.Text2.Text=num 9 Else i.If(num 10=CInt(Int(num 10)))Then 10 ’Text2.Text=Text2.Text+ i.End If 11 End If 12 Else 13 Text2.Text=0 14 num=0 15 ’Text1.Text=Text1.Text+ 16 End If 17 End Sub
相关试题