Rnd в VBnet - Программирование - Basic

Rnd в VBnet

Дата: Пятница, 14 Сентября 2012, 19:17 | Сообщение # 1

участник

Сейчас нет на сайте

Люди знающие помогите пожалуйста, в чём проблема может быть Программа при нажатии на кнопку должна генерировать число, но в итоге она ничего не генерирует, вот кусочек кода:

Public Class Form1
Dim chislo As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Randomize()
chislo = Fix(Rnd() * 100)
End Sub

А на деле у меня ничего не происходит, если написать н-р так:

chislo = 15

То всё работает. В чём трабл?

First

Дата: Пятница, 14 Сентября 2012, 21:02 | Сообщение # 2

Уолтер Брайт

Сообщений: 1054

Сейчас нет на сайте

Quote (Levrite)

Randomize()
chislo = Fix(Rnd() * 100)
End Sub

Не учил VB.nеt, но знаю VB и код будет таков:

Private sub Command1_click()
Chislo = int(rnd()*100)
end sub

Попробуй поставить вместо Fix - Int

Помог, чем смог biggrin