vb计算机页面设计,sysu计算机设计VB编程.doc

sysu计算机设计VB编程

顺序结构：

Dim var1 As Integer, var2 As String

var1 = 12345

var2 = InputBox("输入Var2=", "输入对话框")

MsgBox(var2 & Chr(13) + Chr(10) & "var1=" & Str(var1))

'MsgBox(var2 & vbCrLf & "var1=" & Str(var1))

赋值类型

一、模仿第1题的实验，通过编程运行，理解变量、表达式和函数的定义、书写规则。

(1)在变量说明语句中，将变量A、变量B……变量J分别说明成什么类型，才能与下列的值匹配。

325、546.2、5383149、2003-12-31、“ABCDEF”、 false 、“123456”、

3.2434E+100、1.2563E+12

Dim a As Short

Dim b As Single

Dim c As Integer

Dim d As Date

Dim e1 As String

Dim f As Boolean

Dim g As String

Dim h As Double

Dim i As Single

Dim j(4, 3) As Integer

a = 3.25

b = 546.2

c = 5383149

d = #12/31/2003#

e1 = "ABCDEF"

f = False

g = "123456"

h = 3.24E+100

i = 1.2563E+15

j(0, 0) = 456

MsgBox(a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & e1 & vbCrLf & f & vbCrLf & g & vbCrLf & h & vbCrLf & i & vbCrLf & j(0, 0))

二、分析下列表达式的运算结果，在窗体单击事件过程中，通过定义与运算结果类型相符合的变量，并将运算结果赋值给已定义的对应变量。观察程序编写过程中的语法编译提示。

1) 2) + |0.123-3| 3) - sin(300 ) 4) e6+ln( +2.135)

5) 89&12<>(8912 6) "AB"+STR(32.56)+ "CD"

7) mid("student”,5)= “ent” And(5>2) 8) Not (6>2) Or (7<9))

Dim x21, x22, x23, x24 As Single

Dim x25, x27, x28 As Boolean

Dim x26 As String

x21 = Sqrt(3 ^ 2 / (2 * 4))

x22 = +Abs(0.123 - 3)

x23 = -Sin(30 * PI / 180)

x24 = Exp(6) + Log(2.135)

x25 = 89 & 12 <> 8912

x26 = "AB" + Str(32.56) + "CD"

'x27 = Mid("student", 5) = "ent" And (5 > 2)

x27 = Microsoft.VisualBasic.Right("student", 3) = "ent" And (5 > 2)

x28 = Not (6 > 2) Or (7 < 9)

MsgBox(x21 & vbCrLf & x22 & vbCrLf & x23 & vbCrLf & x24 & vbCrLf & x25 & vbCrLf & x26 & vbCrLf & x27 & vbCrLf & x28)

三、

1、产生一个100以内的随机整数

Dim y As Integer

y = Int(Rnd() * 100)

MsgBox(y)

2、给出任意字符串，测其长度

Dim y As String

Dim y1 As Integer

y = "VB程序设计语言"