所有关于我对vb code的疑问都会在此写下...请大家留意...

电脑@白痴

要怎样才可以做到 window XP 里的 calculate...
谁有那个code...
界面不用..
只需要code罢了...

goodhermit95

windows 的使用 C++ 写的
这个……
Private Sub Plus_Click (...splitted...click
Dim aa as new textbox ‘设 aa = textbox
textbox1.text = aa.text 'textbox1.text = aa
'  Windows API，前面懒惰宣告
If vbkeydownenter then 'If KeyDownEnter Then
aa.text + textbox1.text '+
End Sub

电脑@白痴

看不动.............

电脑@白痴

新问题...
如果我要在一个限制的号码组里
就像 60~70
要怎样打?
p/s:据我所知是要用到case 的

goodhermit95

umm?你要拿来做什么？
不过我会rdm
Int (rdm(60~70))

电脑@白痴

我要做一个y有关等级的program...

goodhermit95

我是说你要用限制，要用在什么地方

电脑@白痴

做平均分数的.....

电脑@白痴

就是如果平均分数为 65
then 65 属于 60~70 之间
then rank = B-
大概是酱...

goodhermit95

输入分数框 = textbox1
显示分数 = label1.text
探测按钮 = Button1
Private Sub button1_click()
  If textbox1.text = Int(80~100) Then
    label1.text = "Your Rank Is -A-"
  ElseIf textbox1.text = Int(60~79) Then
    Label1.text = "Your Rank Is -B-"
  ElseIf textbox1.text = Int(40~59) Then
    Label1.text = "Your Rank Is -C-"
  ElseIf textbox1.text = Int(20~39) Then
    Label1.text = "Your Rank Is -D-" & vbCrLf & "You didn't pass the exam!"
  ElseIf textbox1.text = Int(0~19) Then
    Label1.text = "Your Rank Is -E-" & vbCrLf & "Please do more revision!"
  ElseIf textbox1.text = "100" Then
    Label1.text = "Wow!You get the full marks!"
  ElseIf textbox1.text = "0" Then
    Label1.text = "Nothing to say..."
  ElseIf textbox1.text =>100 Then
    Label1.text = "Huh?Marks higher then 100?"
  Else
    Label1.text = "Only Number Allowed!"
  End If
End Sub