VisualBasic(NET)语言实验项目(01B)实验报告.docVIP

Visual Basic(.NET)语言实验项目（01B） 实验题目 设计一个能显示和清除信息的简单应用程序。 实验内容 1．。 2．。．独立完成上述内容，并提交书面实验报告。 （3） “显示” “清除” “结束”按钮，编写代码如下. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = 锄禾日当午 + Chr(13) + Chr(10) + 汗滴禾下土 + Chr(13) + Chr(10) + 谁知 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End End Sub （4）运行项目，按“显示”按钮之前 （5）运行项目，按“显示”按钮之后 （6）运行项目，按“清除”按钮之后 （7）运行项目，再次按“显示”按钮 （8）按“结束”按钮，显示框消失 调试程序过程中遇到的问题及解决方法 问题：不知道要怎样回车换行 解决：在两个“”号之间加chr（13）加chr(10) 问题：不知道怎样清除 解决：直接让textbox1.text=””即可。 思考题解答 1．若想在程序运行期间能够改变显示信息的颜色，如何实现？ 添加代码如下。 TextBox1.ForeColor = Color.Gray 2．若要在程序运行期间改变显示信息的字体，如何实现？ 添加代码如下。 TextBox1.Font = New Font(黑体, 15) 1．。 2．。 3．。 （3）双击“显示按钮”，编辑代码如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim A As Char, B As Integer A = a B = 3 TextBox1.Text = B * B * B TextBox2.Text = B + 12 TextBox3.Text = B * B TextBox4.Text = 10 / B TextBox5.Text = 10 \ B TextBox6.Text = 9 Mod B TextBox7.Text = A B TextBox8.Text = Val(A) B TextBox9.Text = Cos(45 / 180 * 3.142) TextBox10.Text = Exp(3) TextBox11.Text = Abs(-5) TextBox12.Text = Now() End Sub （4）运行程序，按显示按钮之前 （5）按显示按钮之后 调试程序过程中遇到的问题及解决方法 （1）问题：编写表达式八的代码时，编写成了“Int（A）B”,运行后报错 解决：Val(A) B （2）问题：直接运用Cos()，Exp()， Abs()函数时报错 解决：在程序的开头引入Math类，即在Public Class Form 1，语句的上面添加语句Imports System.Math 思考题解答 1．根据上机操作的体会，试列举出书写表达式应该注意的几个问题。 运用Cos()，Exp()， Abs()函数时应在程序的开头引入Math类，即在Public Class Form 1，语句的上面添加语句Imports System.Math 2．逻辑型数据和其他类型数据是如何转换的？ 当逻辑型表达式复制给数值型变量时，True转换为-1，False转换为0；反之，当 数值型数据复制给逻辑型变量时，非0转换为True，0转换为False。 3．变量和常量的区别是什么？ 常