VB实验报告作业

《VB实验报告作业》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、：1、实验报告中的学生自我小结一定要写，可以是疑惑、心得，我会给出无声的回答。2、作业不能有抄袭，If你一定要触犯的话，Then请一并写出原创单位。第1次VB实验报告作业实验项目顺序结构的运用实验目的（1）掌握顺序结构程序设计的特点。（2）掌握函数的使用。（3）掌握赋值语句、VisualBasic数据的输入/输出。1、单击命令按钮后，两个文本框中的文本能进行交换。（效果如下图所示）第2次VB实验报告作业实验项目选择结构IF语句实验目的（1）掌握选择结构的流程。（2）掌握IF语句的语法及应用。1．判断方程

2、式ax2+bx+c=0的实根情况，在三个文本框中输入a、b、c的值，显示最终的实根信息。请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。程序代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSinglea=Val(text1.Text)b=Val(text2.Text)c=Val(text3.Text)d=（1）Ifd>0ThenLabel1.Caption="该方程式有两个不等的实根"（2）The

3、nlabel1.Caption="该方程式有两个相等的实根"ElseLabel1.Caption="该方程式没有实根"EndIfEndSub提示：一元二次方程的求根公式：△=b2-4ac；当△>0时，方程有两个不相等的实根；当△=0时，方程有两个相等的实根；当△<0时，方程有两个不相等的虚根。第3次VB实验报告作业实验项目选择结构SELECTCASE语句实验目的：掌握SELECTCASE多分支选择结构的语法了解IIF函数和CHOOSE函数的使用1、程序填空题：利用SelectCase语句来判断一个字符串

4、变量a的值。如果是数字字符，则输出“Nums”；如果是其他符号，则输出“Chars”。请将程序代码补充完整。PrivateSubForm_Click()x=InputBox("请输入字符串")SelectCasexCase(1)Print"Nums"(2)Print"Chars"EndSelectEndSubPrivateSubForm_Load()MsgBox"单击窗体",,"提示"EndSub第4次VB实验报告作业实验项目计时器的使用实验目的：掌握选择控件（单选框与复选框）及计时器的常用属性与事件掌

5、握几个位置属性（top,left,width,height）1、程序改错题：（请直接把正确的代码写在实验报告上）具体要求（1）Timer1用来控制图片框每隔0.1秒进行午上下移动（2）在编写的二个过程代码Timer1_Timer()中有二处错误；Command1_Click()中有一处错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句。DimstepAsIntegerPrivateSubCommand1_Click()IfCommand1.Caption="HI,同志们好!"ThenC

6、ommand1.Caption="飘移的感觉真好"Timer1.Enabled=FalseElseCommand1.Caption="HI,同志们好!"Timer1.Enabled=FalseEndIfEndSubPrivateSubForm_Load()step=1EndSubPrivateSubTimer1_Timer()Picture1.MovePicture1.Left,Picture1.Top+50*stepIfPicture1.Top+Picture1.Width>Form1.ScaleHe

7、ightThenstep=-1'图片框移至窗体最下边时则向上飘移ElseIfPicture1.Top>0Thenstep=1'移到最顶部时则向下飘移EndIfEndSub