问答题


【参考答案】

[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
按钮的标题由其Caption属性设置，单击触......

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

问答题
[解析] 在程序运行时控件是否可用由其Enable属性决定，当其值为True时可用，当为False不可用(灰色)。对文件进行操作必须先打开文件，同时通知操作系统对文件进行读操作还是写操作，打开文件的命令是Open，其常用形式为： Open“文件名”For模式As[#]文件号[Len=记录长度] 模式有Output(打开文件，对其进行写操作)、Input(打开文件，对其进行读操作)、Append(打开文件，在文件末尾追加记录)。 统计大小写字符和数字只需根据字符的ASCII码判断，大写字母的ASCII值是FE～I0，小写字母的ASCII值是IG～ABB，数字的为DH～EG。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfileA=App.Path & & progHa.txt myfileB=App.Path & & progHb.txt ’Open myfileA For As #A ’Open myfileB For As #B While Not EOF(A) ’Input , Ch$ If Asc(Ch$)＞=DH And Asc(Ch$)＜=EG Then Number=Number+A ElseIf Asc(Ch$)＞=FE And Asc(Ch$)＜=I0 Then Cp=Cp+A ElseIf Asc(Ch$)＞=IG And Asc(Ch$)＜=ABB Then Lp=Lp+A Else ’Others= End If Wend ’Print , Number, Cp, Lp, Others Close ’COMSTART.Caption= ’COMSTART.Enabled= End Sub 参考代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integer myfileA=App.Path & & progHa.txt myfileB=App.Path & & progHb.txt Open myfileA For Input As #A Open myfileB For Output As #B While Not EOF(A) Input #A, Ch$ If Asc(Ch$)＞=DH And Asc(Ch$)＜=EG Then Number=Number+A ElseIf Asc(Ch$)＞=FE And Asc(Ch$)＜=I0 Then Cp=Cp+A ElseIf Asc(Ch$)＞=IG And Asc(Ch$)＜=ABB Then Lp=Lp+A Else Others=Others+A End If Wend Print #B, Number, Cp, Lp, Others Close COMSTART.Caption= 完成 COMSTART.Enabled=False End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。
问答题
注意：下面出现的“”均为c： wexam 25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题为“操作”，名称为 Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击“操作”菜单中的“显示”命令，则在图片框中显示“计算机考试”；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如图15-1和图15-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。 (2) 在Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图15-3所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
相关试题