实验29-2
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
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 = 325
b = 546.0
c = 5383149
d =
#12/31/2003#
e1 = "ABCDEF"
f = False
g = "123456"
h = 32.4
i = 1256.3
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))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
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)
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)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim y As Integer
y = Int(Rnd() * 100)
MsgBox(y)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim y As String
Dim y1 As Integer
y = "VB程序设计语言"
y1 = Len(y)
MsgBox(y & "长度为" & y1)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim y As Integer
y = InStr("abc student", "stu")
MsgBox(y)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim y As String
y = Trim(" Visual C ++ ")
MsgBox("去除左边空格" & y & "去除右边空格")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim y As String
Dim y1 As Integer
y = "VB程序设计语言"
y1 = Len(y) * 2
MsgBox(y & " 字节数为" & y1)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim y, y1 As String
y = "我去资料室查资料"
y1 = StrReverse(y)
MsgBox(y1)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim y, y1 As String
y = "我去资料室查资料"
y1 = Mid(y, 3, 3)
MsgBox(y1)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim y, y1 As String
y = "我去资料室查资料"
y1 = Mid(y, 7, 2)
'y1 = Microsoft.VisualBasic.Right(y, 2)
MsgBox(y1)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim y, y1 As String
y = "Thisisabook"
y1 = Mid(y, 1, 4) & Space(1) & Mid(y, 5, 2) & Space(1) & Mid(y, 7, 1) & Space(1) & Mid(y, 8)
MsgBox(y1)
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim y As Integer
y = Asc("Z")
MsgBox(y)
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim y As Date
Dim y1, y2, y3 As Integer
y = "2013-1-1"
y1 = DateDiff(DateInterval.Month, y, Today())
y2 = DateDiff(DateInterval.WeekOfYear, y, Today())
y3 = DateDiff(DateInterval.Day, y, Today())
MsgBox(y1 & "个月" & y2 & "个星期" & y3 & "天")
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim y As String
Dim a As Integer
Dim y1 As Integer
y = "42897"
y1 = Val(y)
a = MsgBox(y1, vbOKCancel)
If vbOK = a Then
MsgBox(a)
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim y As Single
y = 3287.153
MsgBox(Format(y, "000.00"))
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Dim z1, z2, z3, z4 As Single
Dim z5, z6, z7 As String
Dim z8 As Date
z1 = 45.632
z2 = 8246.25
z3 = 123.8
z4 = 45627
z5 = "student"
z6 = "permanence"
z7 = "teachers"
z8 =
#4/5/2004#
MsgBox(Format(z1, "00000.00") & " " & Format(z2, "00000.00") & " " & Format(z3, "00000.00") & " " & Format(z4, "00000.00") & vbCrLf & Format(z5, "{0,-12}") & " " & Format(z6, "{0,-12}") & " " & Format(z7, "{0,-12}") & " " & Format(z8, "d"))
End Sub
End Class
2015年01月15日 10点01分
2
