会vb的进

显示全部楼层 · 2011-8-27 12:01:50

Public Class Form1

Dim x, y As Integer

Dim i As Integer

Dim sum As Integer

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

If (Label1.Text"") Then

TextBox2.Text += Label1.Text + TextBox1.Text

TextBox2.Text += " 结果"

If (sum = Val(TextBox1.Text)) Then

TextBox2.Text += "√" + vbCrLf

Else

TextBox2.Text += "×" + vbCrLf

End If

End If

Randomize()

x = Int(Rnd() * 999 + 1)

y = Int(Rnd() * 999 + 1)

i = Int(Rnd() * 4 + 1)

Select Case i

Case 1

Label1.Text = x.ToString() + "＋" + y.ToString() + "＝"

sum = x + y

Case 2

Label1.Text = x.ToString() + "－" + y.ToString() + "＝"

sum = x - y

Case 3

Label1.Text = x.ToString() + "×" + y.ToString() + "＝"

sum = x * y

Case 4

Label1.Text = x.ToString() + "÷" + y.ToString() + "＝"

sum = x / y

End Select

End Sub
End Class
这代码我是重vb程序代码复制来的。我把这些代码复制到vb新建标准exe的查看代码里，无法运行。是我的错还是这些代码有问题

千问 · 2011-8-27 12:01:50

Dim x, y As IntegerDim i As IntegerDim sum As LongPrivate Sub Command1_Click() If Label1.Caption"" Then
Text2.Text = Text2.Text & Label1.Caption & Text1.Text
Text2.Text = Text2.Text & " 结果"
If sum = Val(Text1.Text) Then
Text2.Text = Text2.Text & "√" & vbCrLf
...

千问 · 2011-8-27 12:01:50

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click这个好像不对吧 vb6.0应该不能用这东西...

千问 · 2011-8-27 12:01:50

你这是vb.net，和VB6的环境不一样。...

千问 · 2011-8-27 12:01:50

你想要实现个什么功能，我给你代码。...