VB实验报告作业.doc

eq \o\ac(○,温) eq \o\ac(○,馨) eq \o\ac(◇,提) eq \o\ac(◇,示)： 1、实验报告中的学生自我小结一定要写，可以是疑惑、心得，我会给出无声的回答。 2、作业不能有抄袭，If 你一定要触犯的话，Then请一并写出原创单位。 第1次 VB实验报告作业 实验项目 顺序结构的运用 实验目的 （1）掌握顺序结构程序设计的特点。 （2）掌握函数的使用。 （3）掌握赋值语句、Visual Basic数据的输入/输出。 1、单击命令按钮后，两个文本框中的文本能进行交换。（效果如下图所示） 第2次 VB实验报告作业 实验项目 选择结构IF语句 实验目的 （1）掌握选择结构的流程。 （2）掌握IF语句的语法及应用。 1．判断方程式ax2+bx+c=0的实根情况，在三个文本框中输入a、b、c的值，显示最终的实根信息。请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。 程序代码如下： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim d As Single a = Val(text1.Text) b = Val(text2.Text) c = Val(text3.Text) d = （1） If d > 0 Then Label1.Caption = "该方程式有两个不等的实根" （2） Then label1.Caption = "该方程式有两个相等的实根" Else Label1.Caption = "该方程式没有实根" End If End Sub 提示：一元二次方程的求根公式：△=b2-4ac；当△>0时，方程有两个不相等的实根；当△=0时，方程有两个相等的实根；当△<0时，方程有两个不相等的虚根。  第3次 VB实验报告作业 实验项目 选择结构SELECT CASE语句 实验目的： 掌握SELECT CASE多分支选择结构的语法 了解IIF函数和CHOOSE函数的使用 1、程序填空题：利用Select Case语句来判断一个字符串变量a的值。如果是数字字符，则输出“Nums”；如果是其他符号，则输出“Chars”。请将程序代码补充完整。 Private Sub Form_Click() x = InputBox("请输入字符串") Select Case x Case (1) Print "Nums" (2) Print "Chars" End Select End Sub Private Sub Form_Load() MsgBox "单击窗体", , "提示" End Sub  第4次 VB实验报告作业 实验项目 计时器的使用 实验目的： 掌握选择控件（单选框与复选框）及计时器的常用属性与事件 掌握几个位置属性（top,left,width,height） 1、程序改错题：（请直接把正确的代码写在实验报告上） 具体要求 （1）Timer1用来控制图片框每隔0.1秒进行午上下移动 （2）在编写的二个过程代码Timer1_Timer()中有二处错误；Command1_Click()中有一处错误，请调试改正。 调试改正中，每个过程代码只能改一处，并不得增删语句。 Dim step As Integer Private Sub Command1_Click() If Command1.Caption = "HI,同志们好!" Then Command1.Caption = "飘移的感觉真好" Timer1.Enabled = False Else Command1.Caption = "HI,同志们好!" Timer1.Enabled = False End If End Sub Private Sub Form_Load() step = 1 End Sub Private Sub Timer1_Timer() Picture1.Move Picture1.Left, Picture1.Top + 50 * step If Picture1.Top + Picture1.Width > Form1.ScaleHeight Then step = -1 '图片框移至窗体最下边时则向上飘移 ElseIf Picture1.Top > 0 Then step = 1 '移到最