vbs代码做游戏,vb游泳代码

1.VB编程 计算减掉的脂肪数

2.vb小游戏源代码

3.谁能给我几条常用的vb代码

4.vb中这些代码是什么意思？

由于游泳时全身在并不干净的游泳池中，又暴露在阳光下，所以对皮肤的保护显得比平时更重要。因为游泳时全身都暴露在阳光下，所以身体的防晒最重要，其次是皮肤的清洁，还有常常被忽视的一点就是保湿，即使是夏天，如果空气中的湿度不大，皮肤上的水分还是很容易随着湿漉漉的身体而被蒸发掉的。

防晒品要挑选PA值

今天防晒只看SPF值已经远远不够了。因为SPF只能防御U-VB紫外线，也就是说只能防御1%的紫外线。真正的阳光杀手是U-VA，它占到地面紫外线的98%。UVA最具杀伤力，是因为它能在最短的时间内到达真皮底层，迅速损害弹性纤维，造成皮肤老化。惟一能对付UVA的，就是选择防止UVA的“PA+”产品。

水中的皮肤，由于阳光的反射，吸收紫外线的量会加倍，因此选择防晒品不光要选择SPF30以上，更要选择PA+++防晒品，而且最好选择防晒乳液而不是防晒霜。

怎样认识PA值

PA+有效防护时间大约4小时。

PA++有效防护时间大约8小时。

PA+++超强防护。　　

还要提醒你，买防晒品不要图便宜，由于防晒原料成本比较高，所以在小商品市场出售的比较便宜的防晒品根本就不可能含有防晒剂，还是到有信誉的大商场比较可靠。

VB编程 计算减掉的脂肪数

又到了游泳季节。由于游泳时全身在并不干净的游泳池中，又暴露在阳光下，所以对皮肤的保护显得比平时更重要。因为游泳时全身都暴露在阳光下，所以身体的防晒最重要，其次是皮肤的清洁，还有常常被忽视的一点就是保湿

，即使是夏天，如果空气中的湿度不大，皮肤上的水分还是很容易随着湿漉漉的身体而被蒸发掉的。

防晒品要挑选PA值　　今天防晒只看SPF值已经远远不够了。因为SPF只能防御U-VB紫外线，也就是说只能防御1%的紫外线。真正的阳光杀手是U-VA，它占到地面紫外线的98%。UVA最具杀伤力，是因为它能在最短的时间内到达真皮底层，迅速损害弹性纤维，造成皮肤老化。惟一能对付UVA的，就是选择防止UVA的“PA+”产品。

水中的皮肤，由于阳光的反射，吸收紫外线的量会加倍，因此选择防晒品不光要选择SPF30以上，更要选择PA+++防晒品，而且最好选择防晒乳液而不是防晒霜。

PA+有效防护时间大约4小时。

PA++有效防护时间大约8小时。

PA+++超强防护。

还要提醒你，买防晒品不要图便宜，由于防晒原料成本比较高，所以在小商品市场出售的比较便宜的防晒品根本就不可能含有防晒剂，还是到有信誉的大商场比较可靠。

泳后的皮肤其实很脏

游泳后你的皮肤并不干净，这是泳池的水质问题。由于游泳场馆一般都连续使用，卫生标准很难保证，PH值水中游离性余氯大幅度下降，氨、氢、尿素含量增加，大肠菌群等病菌大量繁殖，使水的浊度增高。游泳场馆多又采用加氯或循环净化来保持水池卫生，这样又会使氯气的浓度不断增加，当增加到2-3PPM时，人们会感到明显的氯臭味，当然也会沾在身上。另外游泳时也难免将皮肤排泄物、脱落的毛发、鼻涕、汗液、体液，甚至尿液及泳衣染料、纤维等带入水中。污染的水常导致眼、鼻、耳、喉、皮肤、胃肠道、生殖系统等的疾病。

看到这些不免让人毛骨悚然，不去游泳是消极的有效方法，而积极的有效方法是泳后认真清洁身体。可以使用“游泳专用洗液”这一类的浴液进行清洗。这种产品可以帮助你去除真菌、细菌，并有护肤作用，而且能把泳后沾在身上的氯气味和漂白粉去除干净，使皮肤洁净、光滑、滋润。

另外，还可以在泳前涂上防氯乳，这种乳液涂在身上，会对皮肤起到一层隔离作用，使皮肤与氯气过多的水隔离，起到对皮肤的保护，避免水中过多的氯气会使皮肤感到干涩。

游泳后皮肤要保湿

“泳后如果不马上擦干身上的水分，皮肤会变得很干”，你有这个感觉吗？因为如果空气中没有足够的水分，皮肤从湿到干的过程中，就会同时吸收皮肤表层的水分而使皮肤变得更干，这在北方地区更为明显。所以最好的护理办法，就是从水中出来沐浴之后，马上擦干身上的水珠，如果不是在盛夏，还要涂上具有保湿作用的护肤品，涂的时候要把全身的每个部位都涂到，然后做轻轻的按摩，帮助养分尽快吸收。

阳光下，水中的皮肤吸收紫外线的量会加倍，最好选择防晒乳液而不是防晒霜，更要选择PA+++防晒品。

vb小游戏源代码

三个文本框用于记录三项运动的时间（单位：小时），一个command

Private Sub command1_Click()

Dim total As Integer

total = Val(Text1.Text) * 245 + Val(Text2.Text) * 655 + Val(Text3.Text) * 470

MsgBox "可减少" & Int(total / 77) / 100 & "kg脂肪。" '计算结果保留两位小数

End Sub

谁能给我几条常用的vb代码

Rem 窗体创建三个单选框按钮，Option1、Option2、Option3。

小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。

当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。

小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。

小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。

小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash 编程语言 Flash ActionScript 制作而成。

由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。

vb中这些代码是什么意思？

Private Sub ComB_savetoMHT_Click()

Dim savetoFilename As String

On Error GoTo toDonothing

With CommonDialog

.ShowSave

savetoFilename = .Filename & ".mht"

.Filename = savetoFilename

Open .Filename For Output As #1

Close #1

End With

toDonothing:

End Sub

_________________________

如何用程序取消excel的行隐藏？

Rows("5:10").Select

Selection.EntireRow.Hidden=False

_________________________

excel 怎样保护部分单元格

隐藏是不让别人看到你的单元格内容，真正要做到保护，就用以下的方式，可以让你随心所欲的结任一单元格进行保护：

1、全选你工作表中的内容，选菜单栏中的格式项下的“单元格”项。

2、去掉勾选“保护”项内的”锁定，之后“确定退出。

3、选定你要进行保护的单元格，重复1、选菜单栏中的格式项下的“单元格”项。

4、在“保护”项内，勾选“锁定”之后退出。

5、在菜单“工具”下选“保护”内之“保护工作表”。

6、在打开的窗口内只选定以下二项：“保护工作表及锁定的单元格内容”和下面的”选定未锁定的单元格“后输入密码，确定即可。

7、你会发现，除了这些锁死不能动外，其他的你一样还可以编辑。

注意退出前要保存文档。

___________________________

Excel操作中隐藏单元格内容的技巧

1.隐藏单元格内容

选择要隐藏的单元格区域，在“格式”菜单中单击“单元格”，单击“数字”选项卡，在“分类”框中，单击“自定义”，然后在“类型”框中键入三个半角的分号“;;;”。单击“确定”按钮。

此时，这些单元格中的内容将不会显示在工作表中的单元格中，但当你单击某个单元格后，编辑栏中将会显示其内容。如果希望在编辑栏中也不显示其内容，请继续下面的操作。

2.隐藏编辑栏内容

再次选择要隐藏的单元格区域，在“格式”菜单中单击“单元格”，单击“保护”选项卡，选中“隐藏”复选框，单击“确定”按钮。接着在“工具”菜单中选择“保护”子菜单，单击“保护工作表”，然后选中“保护工作表及锁定的单元格内容”复选框，还可以在“取消工作表保护时使用的密码”框中键入密码。单击“确定”按钮。

以后，如果需要在编辑栏中显示这些单元格的内容，请在“工具”菜单中选择“保护”子菜单，单击“撤消工作表保护”；要在单元格中显示其内容，请删除设置单元格格式时在“类型”框中自定义的“;;;”符号即可。

___________________________________

Sub a11111111111111()

Selection.Locked = True

Selection.FormulaHidden = False

Cells.Select

Selection.Locked = False

Selection.FormulaHidden = False

Range("A3:D8").Select

Selection.Locked = True

Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

Sub a22222222()

Range("C10:E16").Select

ActiveSheet.Unprotect

Range("C10:E16").Select

Selection.Locked = True

Selection.FormulaHidden = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Range("G10").Select

ActiveSheet.Unprotect

End Sub

_______________________________________

Excel 中另存为的程序

Sub saveas()

' saveas Macro

' Macro recorded 11/19/2008 by Zhu ShengQuan

ChDir "C:\Documents and Settings\U404680\Desktop"

ActiveWorkbook.saveas Filename:="C:\Documents and Settings\U404680\Desktop\265.mht", FileFormat:=xlWebArchive, CreateBackup:=False

End Sub

____________________________________________________

Private Sub CmdUpload_Click()

'This routine will upload the samples

'It check for a valid request nr

'if all required fields are filled in

'check for 100% percentages

'[check for connection]

Dim objConn As ADODB.Connection

Dim oConn As String

Dim sqlString As String

Dim Requestnr, NrofComponents As Integer

Dim KeyCell(1) As String

Dim rsRecordset As ADODB.Recordset

Dim IngRet, strUserId As String

Dim AddSample As Integer

Set objConn = New ADODB.Connection

Set rsRecordset = New ADODB.Recordset

'user is Fab_Upload and pw=Fab_Upload

'this login only has access to 3 tables

oConn = "DRIVER={SQL Server};SERVER=txnt116;UID=Fab_Upload;PWD=Fab_Upload;DATABASE=Fabrequest_SH"

'oConn = "DRIVER={SQL Server};SERVER=wsdevleo;UID=Fab_Upload;PWD=Fab_Upload;DATABASE=Fabrequest"

Worksheets("Formulations_%").Unprotect ("fabricrw")

Worksheets("Formulations_wt.").Unprotect ("fabricrw")

Worksheets("Materials").Unprotect ("fabricrw")

KeyCell(1) = "E4"

ActiveSheet.Range(KeyCell(1)).Select

'count nr of components, standard there are 23 (nrofcomponents-1)

For NrofComponents = 1 To 100

If ActiveCell.Offset(NrofComponents + 5, -3).Text = "Total Pellets" Then Exit For

Next NrofComponents

'MsgBox NrofComponents

'Exit Sub

'check if requestnr is a number

If Not IsNumeric(ActiveCell.Offset(0, 0).Text) Or ActiveCell.Offset(0, 0).Text = "" Then

MsgBox "The request # is not valid, please fill in a correct request #", vbCritical, "Error in Request #"

Exit Sub

Else

Requestnr = ActiveCell.Offset(0, 0).Text

ActiveCell.Offset(37 + (NrofComponents - 24), 4).Value = "Checking Request # in Fabrication Request System"

End If

'get the userid

strUserId = Space(7)

IngRet = GetUserName(strUserId, 10)

'sqlstring for requestnr check

sqlString = "Select Requestnr, EmployeeID FROM tblFabRequestMain Where StatusId IN ('I','C','O') and requestnr=" & Requestnr & " AND EmployeeID='" & strUserId & "';"

'On Error GoTo badconnection

objConn.Open oConn

rsRecordset.Open sqlString, objConn

If rsRecordset.EOF Or rsRecordset.BOF Then

MsgBox "The request # is not found in the system under your EmployeeID or the request is locked (only requests with a status of Incomplete, Complete or Onhold can be edited!)." & vbCrLf & "If locked you can not add samples through this sheet and you must enter them trough Fabrication Request System!", vbCritical, "Error in Request #"

Exit Sub

Else

ActiveCell.Offset(37 + (NrofComponents - 24), 4).Value = "Request # Verified"

End If

'check total amount, units, sample names and total amounts

'if a sample name has been supplied and the total amount=100% this is a valid sample. If not show msgbox

'first determine how many samples there are

Dim I As Integer

For I = 0 To 100

If ActiveCell.Offset(2, I).Text = "" And ActiveCell.Offset(34 + (NrofComponents - 24), I).Text = "" Then Exit For

Next I

'check for each sample the unit and total amount to be made and the total %

Dim X As Integer

For X = 0 To I - 1

'check total mount to be made

If ActiveCell.Offset(3, X).Text = "" Or Not IsNumeric(ActiveCell.Offset(3, X).Value) Then

MsgBox "The total amount to be made of sample " & ActiveCell.Offset(2, X).Text & " is missing or incorrect.", vbCritical, "Error in Sample Amount"

Exit Sub

End If

'check units

If ActiveCell.Offset(4, X).Text = "" Then

MsgBox "The unit of sample " & ActiveCell.Offset(2, X).Text & " is missing.", vbCritical, "Error in Unit."

Exit Sub

End If

'check total percentage

If Not IsNumeric(ActiveCell.Offset(34 + (NrofComponents - 24), X).Value) Or Not ActiveCell.Offset(34 + (NrofComponents - 24), X).Text = 100 Then

MsgBox "The total percentage is not equal to 100% for sample " & ActiveCell.Offset(2, X).Text & ". Pls correct.", vbCritical, "Error in %"

Exit Sub

End If

Next X

ActiveCell.Offset(37 + (NrofComponents - 24), 4).Value = "Samples Verified and prepare Upload"

CmdUpload.Enabled = False

CmdUpload.Caption = "UPLOADING...."

'upload the samples

For X = 0 To I - 1

'check if the sample was already uploaded

sqlString = "Select Sampledescr FROM tblSample WHERE Requestnr=" & Requestnr & " AND SampleDescr='" & ActiveCell.Offset(2, X).Text & "';"

rsRecordset.Close

rsRecordset.Open sqlString, objConn

If Not rsRecordset.BOF Or Not rsRecordset.EOF Then

'this means that the sampledescr is already in the assigned samples of the request

response = MsgBox("A Sample with the name " & ActiveCell.Offset(2, X).Text & " is already assigned to this request! Are you sure you want to upload this sample?", vbYesNo, "Name exists")

If response = vbYes Then

'all checks were succesfull we can upload

'first insert all samples

sqlString = "tblSample"

rsRecordset.Close

rsRecordset.Open sqlString, objConn, adOpenKeyset, adLockPessimistic, adCmdTable

rsRecordset.AddNew

rsRecordset("Requestnr") = Requestnr

rsRecordset("Sampledescr") = ActiveCell.Offset(2, X).Text

rsRecordset("Amount") = ActiveCell.Offset(3, X).Value

rsRecordset("Unit") = ActiveCell.Offset(4, X).Text

Select Case ActiveCell.Offset(4, X).Text

Case "Kg"

rsRecordset("AmountPounds") = ActiveCell.Offset(3, X).Value * 2.2

Case "g"

rsRecordset("AmountPounds") = (ActiveCell.Offset(3, X).Value / 1000) * 2.2

Case "Pounds"

rsRecordset("AmountPounds") = ActiveCell.Offset(3, X).Value

End Select

rsRecordset.Update

ActiveCell.Offset(1, X).Value = rsRecordset("SampleID")

AddSample = 1

Else

'do nothing

AddSample = 0

End If

Else

'all checks were succesfull we can upload

'first insert all samples

sqlString = "tblSample"

rsRecordset.Close

rsRecordset.Open sqlString, objConn, adOpenKeyset, adLockPessimistic, adCmdTable

rsRecordset.AddNew

rsRecordset("Requestnr") = Requestnr

rsRecordset("Sampledescr") = ActiveCell.Offset(2, X).Text

rsRecordset("Amount") = ActiveCell.Offset(3, X).Value

rsRecordset("Unit") = ActiveCell.Offset(4, X).Text

Select Case ActiveCell.Offset(4, X).Text

Case "Kg"

rsRecordset("AmountPounds") = ActiveCell.Offset(3, X).Value * 2.2

Case "g"

rsRecordset("AmountPounds") = (ActiveCell.Offset(3, X).Value / 1000) * 2.2

Case "Pounds"

rsRecordset("AmountPounds") = ActiveCell.Offset(3, X).Value

End Select

rsRecordset.Update

ActiveCell.Offset(1, X).Value = rsRecordset("SampleID")

AddSample = 1

End If

ActiveCell.Offset(37 + (NrofComponents - 24), 4).Value = "Sample " & ActiveCell.Offset(2, X).Text & " Uploaded"

'upload the percentages and materials to the tblFabComposition

'currently 23 components can be added

'

Dim ComponentName As String

Dim J As Integer

For J = 0 To NrofComponents - 2

If ActiveCell.Offset(6 + J, 0).Text > "" And AddSample = 1 Then

'check if a composition % is filled in for that component

'if not skip it

If ActiveCell.Offset(6 + J, X).Text > "" Then

sqlString = "tblFabComposition"

rsRecordset.Close

rsRecordset.Open sqlString, objConn, adOpenKeyset, adLockPessimistic, adCmdTable

rsRecordset.AddNew

rsRecordset("SampleID") = ActiveCell.Offset(1, X).Value

rsRecordset("Resin") = ActiveCell.Offset(6 + J, -3).Text

rsRecordset("GMID") = ActiveCell.Offset(6 + J, -2).Value

rsRecordset("LOTNR") = ActiveCell.Offset(6 + J, -1).Value

rsRecordset("Amount") = ActiveCell.Offset(6 + J, X).Value

Select Case ActiveCell.Offset(6 + J, -2).Text

Case "Pel", "Pellets"

rsRecordset("ResinType") = "Pellets"

Case "Pow", "Powders"

rsRecordset("ResinType") = "Powders"

Case "Liq", "Liquids"

rsRecordset("ResinType") = "Liquids"

Case "Oth", "Other"

rsRecordset("ResinType") = "Other"

Case "Fil", "Fillers"

rsRecordset("ResinType") = "Fillers"

End Select

rsRecordset.Update

End If

End If

Next J

ActiveCell.Offset(37 + (NrofComponents - 24), 4).Value = "Composition of Sample " & ActiveCell.Offset(2, X).Text & " Uploaded "

Next X

MsgBox "Upload completed!"

ActiveCell.Offset(37 + (NrofComponents - 24), 4).Value = "Upload Complete"

CmdUpload.Enabled = True

CmdUpload.Caption = "Upload Sample to Fabrication Request System"

rsRecordset.Close

objConn.Close

Set objConn = Nothing

Set rsRecordset = Nothing

Worksheets("Formulations_%").Protect ("fabricrw")

Worksheets("Formulations_wt.").Protect ("fabricrw")

Worksheets("Materials").Protect ("fabricrw")

Exit Sub

badconnection:

Worksheets("Formulations_%").Protect ("fabricrw")

Worksheets("Formulations_wt.").Protect ("fabricrw")

Worksheets("Materials").Protect ("fabricrw")

MsgBox "The connection to the Fabrication Request System has been lost. Upload cancelled", vbCritical, "Connection Error"

objConn.Close

Set objConn = Nothing

Set rsRecordset = Nothing

End Sub

看看这你就知道了

MSGBOX

，1,3这和conn，1,1有什么区别

游标类型有四个可选值：0，1，2，3 默认为0

0的含义是只能向前游标，不支持分页、Recordset、BookMark

1的含义是键集游标，其他用户对记录所做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页,Recordset,BookMark

2的含义是动态游标，支持所有功能，但最耗费资源

3的含义是静态游标，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

锁定类型可选值有1，2，3，4

1的含义是只读，不允许对记录集做任何修改

2的含义是悲观锁定，当修改时立即锁定记录，较为耗费资源

3的含义是乐观锁定，只有在调用Update方法时才锁定记录集

4的含义是不锁定，更改、插入和删除是在批处理方式下完成的