vb.net的一个小程序

2024-12-25 10:14:36

推荐回答（2个）

回答1：

这个应该很简单啊，我没学过VB.net，但以前学过点VB，不知道两者差别大不大。以下为VB代码，没测试，供参考。
一个按钮，一个列表框，（楼主说要文本框显示结果，但VB中用文本框存储变化的文本很不方便，因此用列表框逐列显示）

代码全部在按钮过程中
z = 0: f = 0 ’正反统计的变量
For i = 1 To 10
Randomize ’初始化随机发生器
x = Int(Rnd(1) + 0.5) ‘得到0或者1的随机数
If x = 0 Then
List1.AddItem "正"
z = z + 1
Else
List1.AddItem "反"
f = f + 1
End If
Next i
结果会以文字形式逐行显示在列表框中，可利用z,f值输出正反次数。

回答2：

Dim a As New System.Random
If (a.NextDouble() > 0.5#) Then
Text1.Text = "正面"
Else
Text 1.Text = "反面"
End If