12 3 4 5 6 / 6 页下一页

查看: 7374|回复: 50

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

[复制链接]

电脑@白痴

2008-7-26 09:46 PM

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

回复 #1 电脑@白痴的帖子

goodhermit95

2008-7-26 09:58 PM

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

回复 #2 goodhermit95 的帖子

电脑@白痴

2008-7-26 10:11 PM

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

电脑@白痴

2008-7-26 10:30 PM

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

回复 #4 电脑@白痴的帖子

goodhermit95

2008-7-26 10:32 PM

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

回复 #5 goodhermit95 的帖子

电脑@白痴

2008-7-26 10:39 PM

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

回复 #6 电脑@白痴的帖子

goodhermit95

2008-7-26 10:58 PM

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

回复 #7 goodhermit95 的帖子

电脑@白痴

2008-7-26 11:02 PM

做平均分数的.....

电脑@白痴

2008-7-26 11:04 PM

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

回复 #9 电脑@白痴的帖子

goodhermit95

2008-7-27 09:30 AM

输入分数框 = 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

12 3 4 5 6 / 6 页下一页

返回列表

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

回复 #1 电脑@白痴 的帖子

回复 #2 goodhermit95 的帖子

回复 #4 电脑@白痴 的帖子

回复 #5 goodhermit95 的帖子

回复 #6 电脑@白痴 的帖子

回复 #7 goodhermit95 的帖子

回复 #9 电脑@白痴 的帖子

浏览过的版块

回复 #1 电脑@白痴的帖子

回复 #4 电脑@白痴的帖子

回复 #6 电脑@白痴的帖子

回复 #9 电脑@白痴的帖子