vb編寫挖礦程序
『壹』 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 編寫一個抽獎程序
command1用來隨機抽取，text2顯示
text1用來自己輸入
command2用來判斷
基本思想：假設連續有a位相同，經過驗證如果為真則得出結果，如果為假，則假設a=a-1位相同……直到a=0
也可以自己輸入text2數據來檢驗程序
這段程序不局限於7位數
Private Sub Command2_Click()
Dim a$, b$, i%, j%, k%
a = CStr(Text1)
b = CStr(Text2)
For i = Len(a) To 1 Step -1
For j = 1 To Len(a) - i + 1
If Mid(a, j, i) = Mid(b, j, i) Then
k = i
Exit For
End If
Next
If k <> 0 Then Exit For
Next
Print k, Mid(a, j, i)'輸出相同位數和相同數字
If len(a)+1-k>5 Then
MsgBox "對不起，無獎項"
Else
MsgBox Len(a) + 1 - k & "等獎"'判斷獎項
End If
End Sub
Private Sub Command1_Click()
a = CStr(Text1)
Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))
End Sub
『叄』 VB 編寫一個程序
dim a(2) as integer,tmp as integer
a(0)=2:a(1)=3:a(2)=1
print a(0);a(1);a(2)
if a(0)<a(1) then tmp=a(0):a(0)=a(1):a(1)=tmp
if a(1)<a(2) then tmp=a(1):a(1)=a(2):a(2)=tmp
if a(0)<a(2) then tmp=a(0):a(0)=a(2):a(2)=tmp
print a(0);a(1);a(2)
『肆』 在VB中編寫一個程序
Static i As Integer
Static j As Integer
Static a As Integer
Static b As Integer
Static c As Integer
Static d As Integer
Dim fz As String
fz = InputBox("請輸入分數：")
Select Case Val(fz)
Case Is <= 59
i = i + 1
Case 60 To 69
j = j + 1
Case 70 To 79
a = a + 1
Case 80 To 89
b = b + 1
Case 90 To 99
c = c + 1
Case 100
d = d + 1
End Select
『主要的代碼如上
『伍』 VB編寫程序的步驟
拿本教程先學學語法,vb是面向對象的語言,你可以對照書上的例子在機器上學習編程.這樣影響更深刻,步驟都不是嚴格的,可以根據程序的需要來進行.但是第一步應該是程序的總體演算法,模塊,界面設計.
『陸』 Filecion挖礦軟體用什麼語音編寫
如果想要用語言進行編寫，建議選擇咱們的vb獲得Java就可以進行了。
『柒』 用vb編寫一個簡單的程序
新建一個窗體,畫2個文本框 Text1和Text2,代碼放在窗體裡面...
Option Explicit
Dim arrPY
Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 2
Text2.Text = ""
Text2.Locked = True
arrPY = Array("ling", "yi", "er", "san", "si", "wu", "liu", "qi", "ba", "jiu", "shi")
End Sub
Private Sub Text1_Change()
'只有一位數字
If Len(Text1) = 1 Then
'校驗是否為數字
If IsNumeric(Text1) = False Then Exit Sub
Text2.Text = arrPY(Text1)
Else
'兩個數字
'校驗數據是否正確
If IsNumeric(Left$(Text1, 1)) = False Or IsNumeric(Right$(Text1, 1)) = False Then Exit Sub
'10就是shi 不能是 yi shi
If Text1 = 10 Then
Text2.Text = arrPY(10)
'以0結尾
ElseIf Right$(Text1, 1) = 0 Then
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10)
'其它情況 x shi y
Else
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10) & " " & arrPY(Right$(Text1, 1))
End If
End If
End Sub
『捌』 VB編寫軟體的全過程
你的問題是在完成了VB應用程序的開發後,將該程序發布或安裝於無VB運行環境的機器使用.它需使用VB自帶的"Microsoft
Visual
Basic
6.0
中文版工具"中的"Package
&
Deployment
向導"進行VB應用程序打包和展開(安裝).在打包過程中"Package
&
Deployment
向導"會搜索必要的VB運行庫文件和ActiveX
控制項OCX文件進入安裝包.
打包和展開向導
打包和展開向導是一種工具，它能幫助您為
Visual
Basic
應用程序創建包裝，並將它們安裝到最終用戶的機器上。您也可以使用打包和展開向導創建從屬文件
(.dep)。
注意:在您運行該向導之前，必須有一個保存並編譯了的工程。
打包和展開向導為發布您的應用程序提供了一些選項，包括創建:
標准包裝，專為由
setup.exe
程序安裝而設計。
Internet
包裝，專為從
Web
站點下載而設計。
可以和部件一起分發的從屬文件。
向導將您的應用程序部件包裝為壓縮
cabinet
(.cab)
文件。您可以創建單個或多個
.cab
文件以便復制到軟盤上。另外，如果需要再次包裝或部署相同的應用程序，可以當您在向導中工作時，將您的設置保存為腳本，以便重復使用。
您可以將打包和展開向導作為一個外接程序或獨立應用程序啟動。要將它作為外接程序啟動，請使用「外接程序管理器...」對話框載入向導，然後單擊「外接程序」菜單上的菜單項來運行它。要將它作為獨立部件啟動，請從「啟動」菜單上的
Microsoft
Visual
Basic
6.0
組中單擊打包和展開向導圖標。
注意
打包和展開向導不是磁碟復制工具，如果要復制主分布盤，請使用磁碟復製程序。
選項
「激活工程」
顯示當前工程的名稱和路徑名。只有在將向導作為外接程序運行時才可應用。
「選定工程」
顯示選定工程的名稱和路徑名，同時列出以前的工程。可以輸入工程的名稱和路徑名，或者從列表中選擇一個工程。只有在將向導作為獨立部件運行時才可應用。
「瀏覽...」
顯示一個可以用來瀏覽工程的對話框。只有在將向導作為獨立部件運行時才可以使用。
「打包」
包裝工程的第一步。在包裝完應用程序後，可以返回到主屏幕並部署您的包裝。
「展開」
部署包裝的第一步。如果有一個包裝好的工程想要發布到軟盤、網路或本地文件夾位置，或者是
Internet
上，則可以使用向導的這一部分。
「管理腳本」
顯示「管理腳本」對話框，在這里可以重命名、復制或刪除包裝和部署腳本。
『玖』 使用VB腳本代碼編寫程序
代碼如下，代碼源文件和圖片附件裡面也有。
<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value=""> <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
%>
