VB programming for mining
Publish: 2021-04-13 09:09:07
1. Hello, all of their mining machines will be updated with the upgrading of hardware to create the latest and most cutting-edge mining site. It's more helpful to rent mining machines here.
2.
< input type=radio name=" search" value=" yh"& Sergeant. Yahoo
< input type=radio name=" search" value=" sg"& Sergeant. .25628;.29399;1
</ td>< br /></ div>< br /></ form>
20195;.30721;.22914;.19979965292;20195;.30721;.28304;-20214;-22270;-29255;-38468;-21214;<37324;<3875754;<20063;
<>>>It> form>< br />< div>& IT; td>& IT; input type=text style=" width:200px; height:25px;& quot; name=" incontinent" value="& quot;& gt;& amp; nbsp;& amp; nbsp;& IT; input type=submit name=" submit" value=" 25628;.32034;"& gt;< br /></ td>& It;/ div>< br />< div>< br />< td>< br />< input type=radio name=" search" value=" bd"& Sergeant. .32593;.32476;< input type=radio name=" search" value=" yh"& Sergeant. Yahoo
< input type=radio name=" search" value=" sg"& Sergeant. .25628;.29399;1
</ td>< br /></ div>< br /></ form>
<% p>
35;39; (32593;)32476; http://www..com/s?wd=
35;39; 25628;29399; http://www.sogou.com/sogou?query=
35;39; Yahoo. https://search.yahoo.com/search;_ ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p=test& toggle=1& cop=mss& Hey=UTF-8& fr=yfp-t-312& fp=1
dim nr,ss
ss= Request.QueryString(" search"< br />nr= Request.QueryString(" incontinent"< br/>if ss=" bd" then
response.redirect(" http://www..com/s?wd="& amp; (nr)
elseif ss=" yh" then
response.redirect(" https://search.yahoo.com/search;_ ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p="& amp; nr&& quot;& amp; toggle=1& cop=mss& Hey=UTF-8& fr=yfp-t-312& fp=1"< br/>elseif ss=" sg" then
response.redirect(" http://www.sogou.com/sogou?query="& amp; nr)
ss= Request.QueryString(" search") quot;& quot;< br />response.redirect(" index.asp"< br />end if
gt;< br />
{RRR}
3. 新建一个窗体,画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
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
4. 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
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
5. Take this tutorial to learn grammar first. VB is an object-oriented language. You can learn programming on the machine according to the examples in the book. This has a more profound influence. The steps are not strict and can be carried out according to the needs of the program. But the first step should be the overall algorithm, mole and interface design of the program
6. dim a(2) as integer, tmp as integer
to(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)
to(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)
7. Your problem is that after the development of VB application program is completed, the program will be released or installed on the machine without VB running environment. It needs to use the & quot; Microsoft
visual
Basic
6.0
Chinese tool & quot; & quot; Package
&
deployment
wizard & quot; In the process of packaging & quot; Package
&
deployment
wizard & quot; Will search the necessary VB runtime files and ActiveX
control OCX files to enter the installation package.
package and expand wizard
package and expand wizard is a tool to help you create packages for
visual
Basic
applications and install them on the end user's machine. You can also use the package and expand wizard to create dependent files
(. DEP)
note: before you run the wizard, you must have a saved and compiled project
the packaging and Deployment Wizard provides some options for publishing your application, including creating:
standard packaging designed for
setup.exe
program installation
Internet
packaging, designed for downloading from
Web
sites
a dependent file that can be distributed with a part
the wizard packages your application parts as compressed
cabinet
(. Cab)
files. You can create single or multiple
. Cab
files to to a floppy disk. In addition, if you need to wrap or deploy the same application again, you can save your settings as scripts for reuse when you work in the wizard
you can start the package and expand wizard as an add in or as a stand-alone application. To start it as an add in, use the add in manager... Dialog box to load the wizard, and then click the menu item on the add in menu to run it. To start it as a stand-alone part, click the pack and expand wizard icon from the
Microsoft
visual
Basic
6.0
Group on the start menu
note that
the package and expand wizard is not a disk replication tool. If you want to the primary distribution disk, please use the disk replication program
Options
activate project
displays the name and pathname of the current project. It can only be applied when the wizard is running as an add in
"selected project"
displays the name and pathname of the selected project, and lists the previous projects. You can enter the name and pathname of the project, or select a project from the list. It can only be applied when the wizard is running as a stand-alone part
"Browse..."
displays a dialog box that can be used to browse projects. It can only be used when the wizard is running as a stand-alone part
"packaging"
the first step of packaging engineering. After wrapping the application, you can return to the home screen and deploy your wrapping
"expand"
the first step in deploying a wrapper. If you have a packaged project that you want to publish to floppy disk, network or local folder location, or
Internet
you can use this part of the wizard
Manage scripts
displays the manage scripts dialog box, where you can rename, , or delete wrapping and deployment scripts.
visual
Basic
6.0
Chinese tool & quot; & quot; Package
&
deployment
wizard & quot; In the process of packaging & quot; Package
&
deployment
wizard & quot; Will search the necessary VB runtime files and ActiveX
control OCX files to enter the installation package.
package and expand wizard
package and expand wizard is a tool to help you create packages for
visual
Basic
applications and install them on the end user's machine. You can also use the package and expand wizard to create dependent files
(. DEP)
note: before you run the wizard, you must have a saved and compiled project
the packaging and Deployment Wizard provides some options for publishing your application, including creating:
standard packaging designed for
setup.exe
program installation
Internet
packaging, designed for downloading from
Web
sites
a dependent file that can be distributed with a part
the wizard packages your application parts as compressed
cabinet
(. Cab)
files. You can create single or multiple
. Cab
files to to a floppy disk. In addition, if you need to wrap or deploy the same application again, you can save your settings as scripts for reuse when you work in the wizard
you can start the package and expand wizard as an add in or as a stand-alone application. To start it as an add in, use the add in manager... Dialog box to load the wizard, and then click the menu item on the add in menu to run it. To start it as a stand-alone part, click the pack and expand wizard icon from the
Microsoft
visual
Basic
6.0
Group on the start menu
note that
the package and expand wizard is not a disk replication tool. If you want to the primary distribution disk, please use the disk replication program
Options
activate project
displays the name and pathname of the current project. It can only be applied when the wizard is running as an add in
"selected project"
displays the name and pathname of the selected project, and lists the previous projects. You can enter the name and pathname of the project, or select a project from the list. It can only be applied when the wizard is running as a stand-alone part
"Browse..."
displays a dialog box that can be used to browse projects. It can only be used when the wizard is running as a stand-alone part
"packaging"
the first step of packaging engineering. After wrapping the application, you can return to the home screen and deploy your wrapping
"expand"
the first step in deploying a wrapper. If you have a packaged project that you want to publish to floppy disk, network or local folder location, or
Internet
you can use this part of the wizard
Manage scripts
displays the manage scripts dialog box, where you can rename, , or delete wrapping and deployment scripts.
8. 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
‘主要的代码如上
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
‘主要的代码如上
9. 第一题：
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
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
Hot content