VB-基本操作.docVIP

CCT－VB基本操作 五、基本操作题1 单击考试系统界面左下角的Visual Basic图标，启动Visual Basic。 打开考试文件夹下的工程文件project11.vbp，在窗体Form1中完成下列操作： 如图所示，设计一个字符颜色应用程序。 其中：窗体的标题为字符颜色。在窗体上画一个标签， Label1，标题分别为程序设计，字号为四号，标签能自动调整大小以显示所有的内容；再画三个命令按钮，其名称分别为Command1、Command2和Command3，标题分别为红、绿、蓝，单击Command1命令按钮，则在标签Label1中字符变为红颜色(ForeColor属性设置为:HFF)，如果单击Command2命令按钮，则在标签Label1中字符变为绿颜色(ForeColor属性设置为:HFF00)，如果单击Command3命令按钮，则在标签Label1中字符变为蓝颜色(ForeColor属性设置为:HFF0000)，代码中不能用变量。 注：本题中工程文件名为project11.vbp，工程名为工程1，窗体文件名为Form11.frm，窗体名为Form1。 答案： Private Sub Command1_Click() Label1.ForeColor = HFF End Sub Private Sub Command2_Click() Label1.ForeColor = HFF00 End Sub Private Sub Command3_Click() Label1.ForeColor = HFF0000 End Sub 六、基本操作题2 单击考试系统界面左下角的Visual Basic图标，启动Visual Basic。 打开考试文件夹下的工程文件project12.vbp，在窗体Form1中完成下列操作： 如图所示，设计一个剪切板应用程序。 其中：窗体的标题为剪切板。在窗体上画一个标签 Label1，标题分别为剪切板测试，字号为四号，标签能自动调整大小以显示所有的内容；再画一个文本框Text1，字号为四号；再画一个命令按钮Command1，标题为复制，单击命令按钮时，利用剪切板将标签 Label1中的标题字符复制粘贴到文本框Text1中(代码中除了Clipboard外，不能使用其它变量)。 注：本题中工程文件名为project12.vbp，工程名为工程1，窗体文件名为Form12.frm，窗体名为Form1。 答案： Private Sub Command1_Click() Text1.Text = Label1.Caption End Sub 七、简单应用题 单击考试系统界面左下角的Visual Basic图标，启动Visual Basic。 打开考试文件夹下的工程文件project2.vbp，在窗体Form1中完成下列操作： 将命令按钮Command1、Command2和Command3的标题分别改为读取数据、计算和保存结果；为计算按钮(Command2)编写适当的事件代码实现下述功能： (1)单击读取数据按钮，把考试文件夹下的文件in1.dat中的100个数读到数组a中（此代码已经给出）； (2)单击计算按钮，计算100个数中正数、负数、0的个数，并分别显示在文本框Text1、Text2、Text3中（要求考生编写代码）； (3)单击保存结果按钮，将文本框Text1、Text2、Text3中的值存入out1.dat文件中（此代码已经给出）。 注意：程序按原文件名存盘。不得修改窗体文件中已经存在的代码。计算出结果之后，必须单击保存结果按钮存储计算结果，否则无成绩。 注：本题中工程文件名为project2.vbp，工程名为工程1，窗体文件名为Form2.frm，窗体名为Form1。 答案： Private Sub Command2_Click() For i=1 to 100 If a(i)0 then x=x+1 If a(i)0 then y=y+1 If a(i)=0 then z=z+1 Next i Text1=x:Text2=y:Text3=z End Sub 五、基本操作1 单击考试系统界面左下角的Visual Basic图标，启动Visual Basic。 打开考试文件夹下的工程文件project11.vbp，在窗体Form1中完成下列操作： 如图所示，设计一个字符变换应用程序。 其中：窗体的标题为字符变换。在窗体上画一个标签Label1，标题分别为程序设计，左边界为0，顶边界为0，标签能自动调整大小以显示所有的内容；再画一个水平滚动条HScroll1，刻度值范围为12--9