1樓：匿名使用者
介面自己看著給的圖,自己做,下面是**:
private sub form_load()command1.caption = "顯示"
command2.caption = "結束"
command2.enabled = falseend sub
private sub command1_click()if command1.caption = "顯示" thentext1.text = "這是我的第一個vb程式"
command1.caption = "繼續"
else
text1.text = "請你賜教，謝謝！"
command1.caption = "顯示"
command2.enabled = trueend if
end sub
private sub command2_click()end
end sub
visual basic 程式設計（vb）求一道簡單題目的**，急！！！
2樓：匿名使用者
private sub a()
aa = cals(-1)
msgbox aa
aa = cals(1)
msgbox aa
aa = cals(20)
msgbox aa
end sub
public function cals(byval x as double) as double
if x <= 0 then
cals = 5 * x - 1
elseif x <= 15 then
cals = x * x - 3 * x - 1elseif x > 15 then
cals = x * x * x - 2 * x * x + x - 1
end if
end function
用visual basic設計一個簡單的小程式,請大家幫幫我,這是老師佈置的作業
3樓：棘棘芽
(儲存時窗體檔名設定為「2.1 取學號中間4位.frm」，工程檔名設定為「2.1 取學號中間4位.vbp」)
這個要求你就自己寫吧! 我只能給你上面的**數學方法 ,也就把上面的 200912345678 當成一個數dim val1 as double
val1 = 200912345678#
val1 = int(val1 / 10000) mod 10000msgbox val1
字元處理方法
msgbox mid("200912345678",5,4)
4樓：
不會吧.老師的作業在這裡做.不厚道.
用visual basic 的基本語言做一個小程式，請大神幫幫忙。 50
5樓：為什麼要不重名
辦法有兩種：
定義陣列，在執行的時候吧**載入到陣列裡面
'假設定義的陣列是tu(1 to 4)，有4個**
private sub xiayizhang_click() '假設下一張按鈕的名字叫做xiayizhang
static js as integer
js = js + 1
if js > 4 then js = 1
picbox.picture = tu(js) '假設**框的名字是picbox
end sub
2. 直接載入**
'假設定義的陣列是tu(1 to 4)整型
private sub xiayizhang_click() '假設下一張按鈕的名字叫做xiayizhang
static js as integer
js = js + 1
if js > 4 then js = 1
if js = 1 then picbox.picture = "**地址"
if js = 2 then picbox.picture = "**地址"
if js = 3 then picbox.picture = "**地址"
if js = 4 then picbox.picture = "**地址"
'假設**框的名字是picbox
end sub
我程,她曼,想起簡單的情侶網名,不要長的,簡單樸素的
愛之旅程 心之漫漫 曼航 啟程 程之歡曼之源 她 他 程 他 她 曼 依舊丶程灬 依然丶曼灬 我想要一個樸素,卻又有含義的情侶網名 40 尓若安好丶便是晴天。尓若幸福丶便是終點。笑的.沒心沒肺 哭的.撕心裂肺 我只在乎你 任時光匆匆流去 溫柔 只為沵掛念 妖嬈 只為沵牽魂 大大大大大 男人 小小小小...
如何製作簡單易用刑序，如何製作簡單易用小程式
就問你一句你懂不懂 最主要的是前端這一塊，還有介面設計，也就是ui，懂的話就容易了，直接規劃好介面和功能框架就行了，不懂的話就用雙漁 小 程 序 平臺製作了，做一個小程式其實很容易 提示框自己美化，一個視窗點選 開始測試，載入另一個視窗，視窗檢測滑鼠 滑鼠焦點到你不想讓他點的地方，然後移動。大概就是...
請問誰會python能幫我編寫個簡單的程式麼，不勝感激，祝您新年愉快大吉大利
假定id是開頭的數字，line是後面的一個句子，items是所有的行，已全部讀入記憶體 def build index items rev index collections.defaultdict lambda set 反向索引 for id,line in items terms line.st...