Private Sub Button1

内容发布更新时间 : 2025/6/29 10:40:05星期一 下面是文章的全部内容请认真阅读。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim rand As New Random()

Dim x(1) As Byte, y1 As Integer, y2, z As Single rand.NextBytes(x)

MsgBox(x(0) & Space(3) & x(1)) y1 = rand.Next(1, 100) y2 = rand.NextDouble() z = Microsoft.VisualBasic.Rnd()

MsgBox(y1 & Space(3) & y2 & Space(3) & z) End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x As String

x = InputBox(\输入任一字符串\输入对话框\ MsgBox(x & \字符串的长度是：\ End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim x As String

x = InputBox(\输入任一含有?stu?的字符串\输入对话框\

MsgBox(\在\字符串的第一个起始位置是：\ End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim x As String x = \ Visual C ++ \ MsgBox(\ End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim x As String

x = \我去资料室查资料\

MsgBox(\的字节数为：\ End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Dim x As String

x = \料资查室料资去我\

MsgBox(\的反序排列为：\ End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim x,