请高手支着：在VB6.0中产生个随机数，并把奇数选出来加粗，倾斜的代码怎么做

来源：百度知道 编辑：UC知道 时间：2024/07/03 03:12:22
单击按钮，产生随机数
然后单击第二个按钮，要求选出上述的随机数中的奇数
再单击第三个按钮，要求对选出的随机数进行上述修饰
谢谢了
我将100分

在窗口上建十一文本框一定要是数组把把第一个删了
也就是让下标从1开始就行了
加一按钮

Private Sub Command1_Click()
For i = 1 To 10
Text1(i) = Int(Rnd() * 100)
Next
End Sub

Private Sub Command2_Click()
For i = 1 To 10
If Val(Me.Text1(i).Text) Mod 2 = 1 Then
Me.Text1(i).ForeColor = vbRed

Else
Me.Text1(i).ForeColor = vbBlack
End If
Next
End Sub

Private Sub Command3_Click()
For i = 1 To 10
If Val(Me.Text1(i).Text) Mod 2 = 1 Then
Me.Text1(i).FontItalic = True
Me.Text1(i).FontBold = True
Me.Text1(i).ForeColor = vbRed
Else

Me.Text1(i).FontItalic = False
Me.Text1(i).FontBold = False
Me.Text1(i).ForeColor = vbBlack
End If

Next
End Sub