visualbasic程序设计典型例题解析(3)

《visualbasic程序设计典型例题解析(3)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计典型例题解析（3）编程题1．编写一个摄氏温度与华氏温度之间转换的程序，程序运行界面图1所示：图1要使用转换的公式是：F=9/5*C+32其中F为华氏温度，C为摄氏温度。解答：程序代码如下：PrivateSubCommand1_Click()IfText1.Text<>""ThenText2.Text=9/5*Text1.Text+32EndIfEndSubPrivateSubCommand2_Click()IfText2.Text<>""ThenText1.Text=(Text2.Text-32)*5/9EndIfEndSub2．编

2、写一程序，要求在文本框中输出200~400之间不能被3整除的数。运行界面如图2所示。5图2分析：根据题意，某数不能被3整除，可以用Mod运算来完成，即用XMod3<>0来表示X不能被3整除。程序代码如下：PrivateSubCommand1_Click()DimXAsIntegerX=200DoUntilX>400IfXMod3<>0ThenText1.Text=Text1.Text&Str(X)&Chr(13)&Chr(10)EndIfX=X+1LoopEndSubPrivateSubCommand2_Click()Text1.Text=""EndSub3．编

3、写一程序，显示所有100以内6的倍数的数，并求这些数的和。程序运行界面如图3所示。5图3分析：6的倍数可以用iMod6<>0来表示，利用For…Next循环来完成。程序代码如下：PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0Fori=1To100IfiMod6=0Thens=s+iText1.Text=Text1.Text&Str(i)&Chr(13)&Chr(10)EndIfNextiLabel1.Caption=Str(s)EndSub4.编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若

4、小于800元大于600元，则增加工资15%；若小于600元则增加工资10%。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图4所示。图45分析：根据题意，本题可用选择结构SelectCase实现。程序代码如下：PrivateSubCommand1_Click()DimxAsInteger,yAsSinglex=Val(Text1.Text)SelectCasexCaseIs>=800y=x*1.2CaseIs>=600y=x*1.15CaseElsey=x*1.1EndSelectLabel

5、1.Caption=yEndSubPrivateSubCommand2_Click()UnloadMeEndSub5.编写一个用户界面如图5所示的列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。List1Command3Text1Command1Comman

6、d2图55分析：根据题意，该程序中主要用到ListBox控件的AddItem、RemoveItem方法的使用。程序如下，请补充完整。PrivateSubForm_Load()List1.AddItem"计算机应用基础"List1.AddItem"程序设计基础"List1.AddItem"VB程序设计"List1.AddItem"SQLServer数据库应用"List1.AddItem"网站设计技术"List1.AddItem"系统开发规范与文档编写"List1.AddItem"信息系统测试"EndSubPrivateSubCommand1_Click()IfTe

7、xt1.Text<>""ThenList1.AddItemText1.Text'将文本框中的内容加到列表框中Text1.Text=""ElseMsgBox"请在文本框中输入信息！"EndIfEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndex'删除选定的项目EndSubPrivateSubCommand3_Click()IfCommand3.Caption="修改"ThenText1.Text=List1.TextText1.SetFocusCommand1.Enabled=FalseCo

8、mmand2.Enabl