问答题


【参考答案】

[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
命令按钮和标签的标题在属性窗口的Captio......

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

问答题
注意：下面出现的“”均为C： wexam 25160002。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上画一个名称为Command1的命令按钮，标题为“打开文件”，再画一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性并编写代码： 设置适当属性，使对话框的标题为“打开文件”；设置适当属性，使对话框的“文件类型”下拉式组合框中有二行：“文本文件”、“所有文件”，如图23-1所示，默认的类型是“所有文件”；编写代码，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (2) 在名称为Form1的窗体上画一个命令按钮，名称为Command1，标题为“移动本按钮”，如图 23-2所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次， 按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
问答题
[解析] 首先理清程序提供代码的思路，然后修改程序并编写代码。 从程序提供的代码中可以看出，整型数组a的使用范围是本窗体中的所有事件过程，用来存放从文件中读取的数据。在排序中，使用双重循环，外循环每踞环一次，确定内循环循环的次数，内循环就是把本次循环中最大的数，放在数组的最后面，这样就可以实现对这E0个数的升序排序。解题步骤： 第一步：分析题目提供的代码。 Dim a(E0) As Integer Private Sub CA_Click() Dim k As Integer，ch As String Open inE.dat For Input AS #A ch= For k=A To E0 ’Input #A, ch=ch+Str(a(k) ) + Next k Close #A ’TextA.Text= End Sub Private Sub CC_Click() Open outE.dat For Output As #A Print #A, TextB.Text Close #A End Sub 第二步：编写程序代码。 参考代码： Dim a(E0) As Integer Private Sub CA_Click() Dim k As Integer, ch As String Open inE.dat For Input As #A ch= For k=A To E0 Input #A, a(k) ch=ch+Str(a(k) ) + Next k Close #A TextA.Text=ch End Sub Private Sub CB_Click() Dim t As Integer, i As Integer, j As Integer Dim ch As String ch= For i=E0 To B Step -A For j=A To DI If a(j)＞a(j+A) Then t=a (j+A) a(j+A)=a(j) a(j)=t End If Next j Next i For j=A To E0 ch=ch+Str(a(j) ) + Next j TextB.Text=ch End Sub Private Sub CC_Click() Open outE.dat For Output As #A Print #A, TextB.Text Close #A End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
相关试题