问答题

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1、标题为“练习”的窗体上画一个名称为Frame1、标题为“效果”的框架。框架内含有3个复选框，其名称分别为Chk1、Chk2和Chk3，运行后的窗体如图1所示。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

【参考答案】

[操作步骤]
第1步：新建一个标准EXE工程，修改窗体Form1的Caption属性为“练习”。
第......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

问答题

在考生文件夹下有一个工程文件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

问答题

在名称为Form1，标题为“列表框练习”的窗体上画一个名称为List1的列表框，表项内容依次输入“环球时报”、“人物”、“探索”和“读者”；再画2个标题分别为“复制”和“移去”的命令按钮。如图2所示。 [*] 要求：编写适当的事件过程，使得单击“复制”按钮，可以将选中的列表项内容复制到已有列表项的尾部；单击“移去”按钮，可以将选中的列表项内容删除。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。

相关试题