1樓：匿名使用者
跪著吧，這樣的學生，不學無術也就罷了，連基本的常識都沒有，「要算分數的」------算什麼分，如何個演算法？先學會語言表達再說吧。
2樓：匿名使用者
public x as boolean
public oper as integer
public z as string
public result as string
private sub command1_click(index as integer)
if x then
text1.text = ""
x = false
text1.text = text1.text + cstr(index + 1)
else
text1.text = text1.text + cstr(index + 1)
end if
end sub
private sub command2_click()
x = true
oper = int(text1.text)
z = "/"
end sub
private sub command3_click()
x = true
oper = int(text1.text)
z = "-"
end sub
private sub command4_click()
x = true
oper = int(text1.text)
z = "+"
end sub
private sub command5_click()
x = true
oper = int(text1.text)
z = "*"
end sub
private sub command7_click()
select case z
case "/"
result = cstr(oper / int(text1.text))
case "-"
result = cstr(oper - int(text1.text))
case "*"
result = cstr(oper * int(text1.text))
case "+"
result = cstr(oper + int(text1.text))
end select
text1.text = result
end sub
private sub command8_click()
text1.text = ""
end sub
簡單的計算器程式自己新增控制元件
3樓：匿名使用者
msgbox "小程式"
關於用vb6.0寫個小程式計算絕對值~~~跪求高手指點..
4樓：匿名使用者
label2.caption = abs(val(text1.text)) ' val(text1.text)是把text1裡的文字轉換成數字 ,abs()是一個取絕對值得函式
下面是笨辦法,但是可以搞懂是怎麼回事
if val(text1.text)>0 thenlabel2.caption=text1.textelse
label2.caption=0-val(text1.text) ' val(text1.text)是把text1裡的文字轉換成數字
end if
5樓：匿名使用者
label.caption="x的絕對值為：" & abs(y)
6樓：匿名使用者
private sub command1_click()
label2.caption = abs(val(text1.text))
end sub
7樓：第佛
啊這，探測小於0就加入文字抹個負號返回成變數，abs(number)最快
還有種辦法：；
dim aaa as integer
load text1
text1.top=0
text1.left =0
...........txet1....
load command1
command1.top=40
command1.left =40
command1.....
private sub command1_click（）aaa=text1.text
if isnumeric(a)=false thenbeep
else
if aaa >= 0
text1.text = aaa
else
text1.text = 0 -aaa
end if
end if
end sub
vb6.0 製作一個簡單小程式
8樓：雲中凌
點選檔案，生成你的工程名字.exe就行了
如何用vb6.0製作一個小程式求上一秒的cps？ 5
9樓：雲南新華電腦學校
方式一，「一鍵生成」的套模板小程式，**比較低，一般幾千元
優點是：功能簡單，容易操作，開發時間短，能夠快速上線
缺點是：功能一般無法修改，這種模板小程式是按年租用給你，並不是屬於你的。
方式二，購買原始碼，**中等，一般1-3萬左右
優點是：永久擁有自己的小程式，無需按年繳費；可以做無數個小程式，不用再付費。
缺點是：不一定能夠買到符合自己供需求的原始碼
方式三，定製開發，**比較高，一般3萬到10萬+
優點是：永久擁有自己獨立且獨一無二的小程式，而且小程式是按照個性化需求定製開發的，使用者體驗更加好。
缺點是：成本相對比較高，基本費用在3萬元到10萬不等
壹來客是專門開發小程式的，**和售後都比較實在。其實**只是一方面，找一家靠譜的開發公司也是非常重要的。
關於vb6.0的一個小程式**
10樓：陸彩靜溫坤
把四個checkbox定義成一個控制元件陣列（假設叫check1），文字框名為text1，**如下：
private
subcheck1_click(indexasinteger)
text1.text
="我最喜歡的科目是
"fori=
0tocheck1.count-1
ifcheck1(i).value
then
text1.text
=text1.text
&check1(i).caption
endif
next
iendsub
想用vb6.0做一個小程式,裡面就一張**,開啟10秒後自動關閉.求詳細製作方法,還有所需要的控制元件,屬性設定
11樓：匿名使用者
picture控制元件 和timer 控制元件各一個，其中picture控制元件用來載入**
private sub form_load()timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()static n as integer
if n = 10 then end
n = n + 1
end sub
12樓：匿名使用者
新增一個timer控制元件、一個picture1控制元件，新增一張**，**如下：
dim i as integer
private sub form_load()i = 10
timer1.enabled = truetimer1.interval = 1000end sub
private sub timer1_timer()i = i - 1
if i = 0 then
picture1.visible = falseend if
end sub
13樓：布蘭的詩歌
前面的一樓二樓，已經回答得很好了
maxbuttn=false 取消最大化minbuttn=false 取消最小化但是取消關閉按鈕好像不能直接改，可以用對話方塊代替
14樓：白居艱
先把窗體最大化，然後選窗體屬性，borderstyle\0-none
別的問題就按他們說的吧，我也沒看對不對。
vb6.0急求：做一個倒計時小程式，有主窗體form1和設定窗體form2（具體如**），求完整**。 30
15樓：鄧智彰
哇 連個謝謝都沒有， 有報酬嗎？
沒有的話直覺告訴我沒人幫你寫
在VB6 0中的SetWindowTextA DLL過程只能作用於自身的物件嗎，能設定其它應用程式嗎
public declare function getforegroundwindow lib user32 alias getforegroundwindow as long 獲得當前操作的視窗控制代碼 public declare function enumwindows lib user32 ...
VB6 0用什么最佳方法實現多達60多個條件的查詢
private declare function getasynckeystate lib user32 byval vkey as long as integer private sub text1 keydown index as integer,keycode as integer,shift...
基於vb60將接收到的下位機資料用影象的形式顯示
首先 獲得資料 一般用rs232 來傳送資料 接收就行了 畫圖簡單多了 picture1.line 一個語句就夠了 我就貼一段隨機產生1500個數字 畫圖的 給你參考一下吧 2個控制元件 picturebox command private sub form load picture1.cls pi...