[计算机软件及应用]vb

《[计算机软件及应用]vb》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1表1步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。如表2步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。PrivateSubShape1_Click()Me.Sha1.Shape=1EndSubPrivateSubShape2_Click()Form1.Sha1=3EndSub步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。步骤2：在窗体Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表3所示。表3

2、步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubC1_Click()DimaAsStringa="我是"IfOp1.ValueThenText1.Text=a&Op1.CaptionElseText1.Text=a&Op2.CaptionEndIfa="我的爱好是"IfCh1.Value=1ThenText2.Text=a&Ch1.Captiona=Text2.TextEndIfIfCh2.Value=1ThenText2.Text=a&Ch2.CaptionEndIfEndSub步骤4：按键运行程序，先选中选中一个单选按钮和至少一个复

3、选框，并单击"确定"按钮，然后单击窗体右上角的关闭按钮结束程序。步骤1：打开考生文件中的本题工程文件sjt4.vbp，通过属性窗口向列表框添加四个项目，分别是："第一项"、"第二项"、"第三项"、"第四项"。步骤2：在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。参考代码：i=0Timer1.Interval=1000Label1.Caption=List1.List(i)步骤3：按要求将文件保存至考生文件夹中。步骤1：新建一个"标准EXE"工程，如表4在窗体中画出控件并设置其相关属性。表4步骤2：打开代码编辑窗口，编写相应事件过程。参考代码

4、：OptionBase1Dimsum(6)AsIntegerPrivateSubCommand1_Click()OpenApp.Path&"in5.txt"ForInputAs#1Text1.Text=Input(LOF(1),#1)Close#1EndSubPrivateSubCommand2_Click()Fori=1To6sum(i)=0NextiIfLen(Text1.Text)=0ThenMsgBox"请先使用"读数"功能！"ElseFori=1ToLen(Text1.Text)c=LCase(Mid(Text1.Text,i,1))SelectCas

5、ecCase"i"sum(1)=sum(1)+1Case"j"sum(2)=sum(2)+1Case"k"sum(3)=sum(3)+1Case"l"sum(4)=sum(4)+1Case"m"sum(5)=sum(5)+1Case"n"sum(6)=sum(6)+1EndSelectNextiEndIfEndSubPrivateSubCommand3_Click()OpenApp.Path&"out5.txt"ForOutputAs#1Fori=1To6Print#1,sum(i)NextiClose#1EndSub步骤3：按要求将文件保存至考生文件夹中。2表

6、1控件属性设置表2步骤2：在代码编辑窗口编写两个命令按钮的单击事件过程。参考代码：PrivateSubCommand1_Click()Shape1.FillStyle=3EndSubPrivateSubCommand2_Click()Form1.Shape1.FillStyle=2EndSub步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。参考代码：n%=Asc("a")-Asc("A")B$=String(1,Asc(B$)+32)Text1.Text=A步骤2：按要求将文件保存至考生文

7、件夹中。步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。参考代码：Ifnum

8、en(s)