关于VB Random 和Optionbutton的问题

[小小破米]

在下是vb的初学者，请教各位前辈几个问题：

1.random 一个特定范围的数字应是10*Rnd+1
那要是想要random一些特定的数字怎马办呢，例如：在lblSign中随机显示+,-,*,/ 四种符号。

2.有两个Option Button:
small sandwich代表$2
large sandwich代表$4
当选择small sandwich时，lblTotalPrice 的值+2.5
当选择large sandwich时，lblTotalPrice 的值+4
（注：选择small时，large的值要被减去，选择large时,small的值要减去）


应该怎样编成这两个option button的语句呢？
我编的是：Private Sub optLarge_Click()

If optLarge.Value = True Then
dblTotalPrice = dblTotalPrice + 4
ElseIf optSmall.Value = False Then
dblTotalPrice = dblTotalPrice - 4
End If
lblTotalPrice.Caption = dblTotalPrice

End Sub

Private Sub optSmall_Click()

If optSmall.Value = True Then
dblTotalPrice = dblTotalPrice + 2.5
ElseIf optSmall.Value = False Then
dblTotalPrice = dblTotalPrice - 2.5
End If
lblTotalPrice.Caption = dblTotalPrice

End Sub

导致每次按small时，total price 都累积 + 2，十分苦恼。

有急用，还请各位快些帮帮忙啊~~

 

[月下独酌]

random 1-4然后case 1=*, 2=- ..

。。。你的程序干吗的。。不懂为什么要减去。。

 

[小小破米]

。。

没什马用，就是要交作业的。
至于第二个问题已经得到解决，多谢您啦！