vb程序设计题

《vb程序设计题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、五、设计题 (请按照题目要求进行答题)1：编程，输入x，求下列分段函数的值，计算结果输出到Text控件中。PrivateSubCommand1_Click()DimxAsSinglex=InputBox("输入x","计算分段函数")Ifx<=3ThenText1=Str(1+x)ElseText1=Str(x+3)^0.25EndIfEndSubPrivateSubCommand1_Click()DimxAsSinglex=InputBox("输入x","计算分段函数")Ifx<=3ThenText1=Str(1+x)ElseText1=Str(x+3)^0.25EndIf

2、EndSub2：如下图，编程，点击按钮可以移动列表框中所选中表项的位置。说明：通过load事件添加列表项，运行时，先选择列表框中的选项，才可以使用“上移”或“下移”按钮。当选项是第一项时不能再上移，当选项是最后一项时不能再下移。参考答案：PrivateSubCommand1_Click()DimxAsSinglex=InputBox("输入x","计算分段函数")Ifx<=3ThenText1=Str(1+x)ElseText1=Str(x+3)^0.25EndIfEndSub参考答案：PrivateSubCommand1_Click()'上移DimiAsIntegeri=L

3、ist1.ListIndexList1.AddItemList1.Text,i-1'先将选中的内容添加到上一项前List1.RemoveItemi+1'将原来选中的那项删除List1.ListIndex=i-1'将光标重新指向已经上移后的选项EndSubPrivateSubCommand2_Click()'下移DimiAsIntegeri=List1.ListIndexList1.AddItemList1.Text,i+2'先将选中的内容添加到下一项后List1.RemoveItemi'将原来选中的那项删除List1.ListIndex=i+1'将光标重新指向已经下移后的选项

4、EndSubPrivateSubList1_Click()Command1.Enabled=True:Command2.Enabled=TrueIfList1.ListIndex=0ThenCommand1.Enabled=False'第一项不能上移EndIfIfList1.ListIndex=List1.ListCount-1ThenCommand2.Enabled=False'最后一项不能下移EndIfEndSub3：编写程序，将磁盘文件d:student.dat中若干个学生的姓名、出生年月、外语成绩和计算机成绩显示在列表框中，并且能实现以下功能：若文本框内容不为空，单

5、击命令按钮“追加记录”则将文本框中的文本追加至列表框中；单击命令按钮“删除记录”则可删除列表框的选中项；首次运行时文件可以为空，单击“保存文件”命令按钮则保存文件。界面设计如图所示。参考答案：PrivateSubForm_Load()DimssAsStringOpen"d:student.dat"ForInputAs#1WhileNotEOF(1)LineInput#1,ss:List1.AddItemssWendClose#1EndSubPrivateSubCommand1_Click()IfTrim(Text1.Text)<>""ThenList1.AddItemTex

6、t1.TextText1.Text=""EndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubCommand3_Click()DimIAsIntegerOpen"d:student.dat"ForOutputAs#1ForI=0ToList1.ListCount-1:Print#1,List1.List(I):NextIClose#1EndSubPrivateSubCommand4_Click()EndEndSub4：设计一个简单的画板程序，可以根据选择的颜色，用鼠标的左

7、键模拟画笔，在绘图区画线或画矩形；单击“清除”按钮后清除图片框的内容。（提示：每次画矩形时可先清除其它图案）参考答案：Dimx1AsSingle,y1AsSinglePrivateSubCommand1_Click()CommonDialog1.ShowColorPicture1.ForeColor=CommonDialog1.ColorEndSubPrivateSubCommand2_Click()Picture1.ClsEndSubPrivateSubPicture1_MouseDown(Butto