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
%>
