vb如何編寫程序代碼

㈠ VB程序代碼編寫

Private Sub Command1_Click()
For i = 1 To 10
Print (Int(Rnd * 91) + 10) * (-1) ^ (Int(Rnd * 2) + 1);
Next
Print
End Sub

㈡ VB創建程序步驟

1.新建工程。創建一個應用程序首先要打開一個新的工程。
2.創建應用程序主界面。使用工具箱在窗體上放置所需控制項。其中，窗體是用戶進行界面設計時在其上放置控制項的窗口，它是創建應用程序界面的基礎。
3.設置屬性值。通過這一步驟來改變對象的外觀和行為。可通過屬性窗口設置，也可通過程序代碼設置。
4.對象事件過程的編程。通過代碼窗口為一些對象有相關事件的編寫代碼。
5.保存文件。運行調試之前，一般要先保存文件。
6.程序運行與調試。測試所編程序，若運行結果有錯或對用戶界面不滿意，則可通過前面的步驟修改，繼續測試直到運行結果正確，用戶滿意為止，再次保存修改後的程序。

㈢ 利用VB如何編寫一段簡單計算機的程序誰能給我代碼

在可是界面下 放置一個textbox控制項 再放置一個commandbutton控制項 雙擊command1

Private Sub Command1_Click()
text1.text="這是一個測試程序！"
End Sub
然後運行程序 就會在textbox控制項中顯示 這是一個測試程序！

㈣ VB編寫程序的步驟

拿本教程先學學語法,vb是面向對象的語言,你可以對照書上的例子在機器上學習編程.這樣影響更深刻,步驟都不是嚴格的,可以根據程序的需要來進行.但是第一步應該是程序的總體演算法,模塊,界面設計.

㈤ VB 程序代碼編寫

「命令按鈕的標題」是什麼呀？ 做的label標簽？按鈕的Caption?
如果「命令按鈕的標題」指的是按鈕的Caption，以下代碼：
Dim a
Private Sub c1_Click()
a = Text1.Text
Text1.Text = c2.Caption
c2.Caption = a
End Sub
如果「命令按鈕的標題」指的是 在C2按鈕上邊做的label標簽（label1），以下代碼：
Dim a
Private Sub c1_Click()
a = Text1.Text
Text1.Text = Label1.Caption
Label1.Caption = a
End Sub

㈥ 在VB中怎樣編寫程序代碼

這是一個很大的題目，可以安裝MSDN Library Visual Studio 6.0 版來幫助理解如何寫代碼。

㈦ VB編程，超簡單的。求編寫代碼

第一題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入當前顧客購買雞蛋的重量（以公斤為單位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub

第二題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入顧客所乘的公里數")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If

If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If

Print Y
End Sub

㈧ 使用VB腳本代碼編寫程序

代碼如下，代碼源文件和圖片附件裡面也有。

<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value="">&nbsp;&nbsp;<input type=submit name="submit" value="搜索">
</td></div>
<div>
<td>
<input type=radio name="search" value="bd">網路
<input type=radio name="search" value="yh">Yahoo
<input type=radio name="search" value="sg">搜狗
</td>
</div>
</form>

<%

'網路 http://www..com/s?wd=
'搜狗 http://www.sogou.com/sogou?query=
'Yahoo https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p=test&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1

dim nr,ss
ss= Request.QueryString("search")
nr= Request.QueryString("incontent")
if ss="bd"then
response.redirect("http://www..com/s?wd="&nr)
elseif ss="yh" then
response.redirect("https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p="&nr&"&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1")
elseif ss="sg"then
response.redirect("http://www.sogou.com/sogou?query="&nr)
ss= Request.QueryString("search")=""
response.redirect("index.asp")
end if
%>

㈨ 用VB如何編寫運行代碼的程序

用vb編程工具，編寫後生成可執行程序，即可運行

㈩ 用vb編寫一個簡單的程序

上面的程序有問題
'給窗口加3個TEXT控制項
text.text
都設為0，再加個COMMAND
控制項
'付上以下程序
OK了
Private
Sub
Command1_Click()
Dim
D
As
Single,
L
As
Single
D
=
Val(Text1.Text)
L
=
val(Text2.Text)
v
=
0.7854
*
L
*
(D
+
0.5
*
L
+
0.005
*
L
^
2
+
0.000125
*
L
*
(14
-
L)
^
2
*
(D
-
10))
^
2
/
1000
Text3.Text
=
v
End
Sub