爱的奴隶2国语正在播放_ 『欠欠答答』-小金肯德基
淘宝减肥药排行榜十强
只推淘宝安全有效的减肥药

当前位置:爱的奴隶2国语正在播放 > 减肥产品

爱的奴隶2国语正在播放

时间:2021-04-13 20:28  编辑:wendj

实验一

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3195

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 375

Left = 2640

TabIndex = 0

Top = 2400

Width = 1575

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Print Sqr(8), 8 ^ (1 / 3)

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3195

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 495

Left = 3720

TabIndex = 0

Top = 2640

Width = 855

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim i%

For i = 100 To 110

Print i, i ^ (1 / 2)

Next

End Sub

VERSION 5.00

Begin VB.Form Form1

AutoRedraw = -1 'True

Caption = "Form1"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

BeginProperty Font

Name = "楷体_GB2312" Size = 21.75

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H000000FF&

LinkTopic = "Form1"

ScaleHeight = 3195

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Form_Load()

Print: Print

Print " 郑州大学在前进!"

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3780

ClientLeft = 60

ClientTop = 345

ClientWidth = 6285

LinkTopic = "Form1"

ScaleHeight = 3780

ScaleWidth = 6285

StartUpPosition = 3 '窗口缺省

Begin VB.Label Label1

Caption = "蓝天、白云、绿水、青山" BeginProperty Font

Name = "宋体"

Size = 21.75

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00FF0000&

Height = 975

Left = 600

TabIndex = 0

Top = 1080

Width = 4935

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

实验2

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 3615

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 3615

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command2 Caption = "商"

Height = 375

Left = 1920

TabIndex = 4

Top = 1680

Width = 975

End

Begin VB.CommandButton Command1 Caption = "乘积"

Height = 375

Left = 600

TabIndex = 3

Top = 1680

Width = 975

End

Begin VB.TextBox Text2

Height = 375

Left = 1920

TabIndex = 2

Top = 840

Width = 1095

End

Begin VB.TextBox Text1

Height = 375

Left = 480

TabIndex = 1

Top = 840

Width = 1095

End

Begin VB.Label Label3

BorderStyle = 1 'Fixed Single Caption = "Label3"

Height = 375

Left = 2040

TabIndex = 6

Top = 2400

Width = 975

End

Begin VB.Label Label2

Caption = "计算结果为:" Height = 375

Left = 480

TabIndex = 5

Top = 2400

Width = 1575

End

Begin VB.Label Label1

AutoSize = -1 'True

Caption = "请输入两个数:" Height = 240

Left = 960

TabIndex = 0

Top = 360

Width = 1785

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Label3 = Val(Text1) * Val(Text2)

End Sub

Private Sub Command2_Click()

Label3 = Val(Text1) / Val(Text2)

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 5490

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 5490

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command3 Caption = "隐藏"

Height = 375

Left = 4080

TabIndex = 3

Top = 2040

Width = 975

End

Begin VB.CommandButton Command2 Caption = "图片2"

Height = 375

Left = 4080

TabIndex = 2

Top = 1320

Width = 975

End

Begin VB.CommandButton Command1 Caption = "图片1"

Height = 375

Left = 4080

TabIndex = 1

Top = 600

Width = 975

End

Begin VB.PictureBox Picture1

AutoSize = -1 'True BeginProperty Font

Name = "宋体"

Size = 9

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 1935

Left = 600

ScaleHeight = 1875

ScaleWidth = 2715

TabIndex = 0

Top = 480

Width = 2775

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Picture1.Picture = LoadPicture("d:\tu1.jpg") End Sub

Private Sub Command2_Click()

Picture1.Picture = LoadPicture("d:\tu2.jpg") End Sub

Private Sub Command3_Click()

Picture1.Visible = False

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "收款机"

ClientHeight = 2730

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

BeginProperty Font

Name = "宋体"

Size = 12

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

LinkTopic = "Form1"

ScaleHeight = 2730

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "总价为"

Height = 375

Left = 600

TabIndex = 4

Top = 1920

Width = 1695

End

Begin VB.TextBox Text2

Height = 495

Left = 3000

TabIndex = 3

Top = 960

Width = 1335

End

Begin VB.TextBox Text1

Height = 495

Left = 3000

TabIndex = 2

Top = 240

Width = 1335

End

Begin VB.Label Label3

Alignment = 2 'Center

BorderStyle = 1 'Fixed Single

Height = 495

Left = 2760

TabIndex = 5

Top = 1920

Width = 1455

End

Begin VB.Label Label2

Alignment = 2 'Center

Caption = "货物的单价(元):"

Left = 360

TabIndex = 1

Top = 1080

Width = 2295

End

Begin VB.Label Label1

Alignment = 2 'Center

Caption = "货物的数量(个):" Height = 375

Left = 360

TabIndex = 0

Top = 360

Width = 2295

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Label3 = Text1 * Text2

End Sub

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 1890

ClientLeft = 60

ClientTop = 450

ClientWidth = 4365

LinkTopic = "Form1"

ScaleHeight = 1890

ScaleWidth = 4365

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command2

Caption = "清除"

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2400

TabIndex = 3

Top = 1200

Width = 975

End

Begin VB.CommandButton Command1

Caption = "复制"

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

Height = 375

Left = 720

TabIndex = 2

Top = 1200

Width = 975

End

Begin VB.TextBox Text2

Height = 495

Left = 2160

TabIndex = 1

Top = 360

Width = 1695

End

Begin VB.TextBox Text1

Height = 495

Left = 480

TabIndex = 0

Top = 360

Width = 1455

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Text2 = Text1

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

End Sub

Private Sub Form_Load()

Command1.Visible = False

Command2.Visible = False

End Sub

Private Sub Text1_Change() Command1.Visible = True

Command2.Visible = True

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3300

ClientLeft = 60

ClientTop = 450

ClientWidth = 4695

BeginProperty Font

Name = "宋体"

Size = 12

Charset = 134

Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

LinkTopic = "Form1"

ScaleHeight = 3300

ScaleWidth = 4695

StartUpPosition = 3 '窗口缺省 Begin VB.Timer Timer1

Enabled = 0 'False Interval = 500

Left = 3120

Top = 1320

End

Begin VB.CommandButton Command2

Caption = "停止"

Height = 495

Left = 2640

TabIndex = 1

Top = 2400

Width = 975

End

Begin VB.CommandButton Command1

Caption = "移动"

Height = 495

Left = 840

TabIndex = 0

Top = 2400

Width = 1095

End

Begin VB.Image Image1

Height = 1800

Left = 840

Top = 360

Width = 1500

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Form_Load()

Image1.Picture = LoadPicture("d:\tu3.jpg")

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height))

End Sub

实验3

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3195

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 495

Left = 3720

TabIndex = 0

Top = 2640

Width = 855

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Print 2 * 3 ^ 2 * 8 / 4 + 3 ^ 2

Print Sqr(Sqr(64))

Print #2/27/2004# - 10

Print Int(-3.1415926)

Print Int(Abs(99 - 100) / 2)

Print Fix(-3.1415926)

Print Int(-3.5), Int(3.5)

Print Fix(3.5), Fix(3.5)

Print Sgn(7 * 3 + 2)

Print LCase("Hello")

Print Val("16Year")

Print Str(-459.65)

Print Len("Hello 程序设计 ok")

Print "MNT" & 123 & "ABC"

Print 123 + Mid("123456", 3, 2)

Print 123 & Mid("123456", 3, 2)

Print DateAdd("m", 1, #2/27/2004#)

End Sub

Caption = "Form1"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 6825

BeginProperty Font

Name = "宋体"

Size = 15

Charset = 134

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

LinkTopic = "Form1"

ScaleHeight = 3195

ScaleWidth = 6825

StartUpPosition = 3 '窗口缺省

Begin VB.TextBox Text1

Height = 495

Left = 3120

TabIndex = 2

Text = "Text1"

Top = 240

Width = 1695

End

Begin VB.CommandButton Command1

Caption = "计算平方立方(根)" BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 1680

TabIndex = 0

Top = 960

End

Begin VB.Label Label2

Caption = "Label2"

Height = 735

Left = 480

TabIndex = 3

Top = 1920

Width = 5895

End

Begin VB.Label Label1

Caption = "输入一个数"

Height = 495

Left = 1320

TabIndex = 1

Top = 240

Width = 1935

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim n%

n = Abs(Val(Text1))

Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")

End Sub

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3330

ClientLeft = 60

ClientTop = 345

ClientWidth = 5985

LinkTopic = "Form1"

ScaleHeight = 3330

ScaleWidth = 5985

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command2

Caption = "方法二"

Left = 3840

TabIndex = 1

Top = 1800

Width = 1215

End

Begin VB.CommandButton Command1

Caption = "方法一"

Height = 495

Left = 3840

TabIndex = 0

Top = 600

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim x%, y%

x = Int(Rnd * 900 + 100)

Print "产生的随机数:"; x

y = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100

Print "反序数:"; Format(y, "000")

End Sub

Private Sub Command2_Click()

Dim x%, y As String

x = Int(Rnd * 900 + 100)

Print "产生的随机数:"; x

y = Trim(Str(x))

Print "反序数:" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1) End Sub

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 4275

ClientLeft = 60

ClientTop = 345

ClientWidth = 6975

LinkTopic = "Form1"

ScaleHeight = 4275

StartUpPosition = 3 '窗口缺省

Begin VB.TextBox Text2

Height = 615

Left = 4080

TabIndex = 5

Top = 960

Width = 1215

End

Begin VB.CommandButton Command1

Caption = "开始产生"

Height = 495

Left = 2640

TabIndex = 3

Top = 1920

Width = 1215

End

Begin VB.TextBox Text1

Height = 615

Left = 1200

TabIndex = 0

Top = 960

Width = 1215

End

Begin VB.Label Label3

Caption = "Label3"

Height = 375

Left = 840

TabIndex = 4

Top = 2880

Width = 4695

End

Begin VB.Label Label2

Alignment = 2 'Center

Caption = "到"

BeginProperty Font

Name = "隶书"

Size = 15

Charset = 134

Weight = 700

Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty

Left = 2760

TabIndex = 2

Top = 1080

Width = 975

End

Begin VB.Label Label1

Caption = "输入随机数范围:"

BeginProperty Font

Name = "隶书"

Size = 14.25

Charset = 134

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 480

TabIndex = 1

Top = 360

Width = 2655

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim m%, n%

Randomize

m = Val(Text1): n = Val(Text2)

x = Int(Rnd * (n - m) + m)

y = Int(Rnd * (n - m) + m)

z = Int(Rnd * (n - m) + m)

Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & z

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3270

ClientLeft = 60

ClientTop = 450

ClientWidth = 6000

LinkTopic = "Form1"

ScaleHeight = 3270

ScaleWidth = 6000

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command3

Caption = "星期几"

Height = 495

Left = 360

TabIndex = 2

Top = 2280

Width = 1455

End

Begin VB.CommandButton Command2

Caption = "时间"

Height = 495

Left = 360

TabIndex = 1

Top = 1440

Width = 1455

End

Begin VB.CommandButton Command1

Caption = "日期"

Height = 495

Left = 360

TabIndex = 0

Top = 600

Width = 1455

End

Begin VB.Label Label3

BorderStyle = 1 'Fixed Single Caption = "Label3"

Height = 495

Left = 2520

TabIndex = 5

Top = 2280

Width = 2535

End

Begin VB.Label Label2

BorderStyle = 1 'Fixed Single Caption = "Label2"

Height = 495

TabIndex = 4

Top = 1440

Width = 2535

End

Begin VB.Label Label1

BorderStyle = 1 'Fixed Single Caption = "Label1"

Height = 495

Left = 2520

TabIndex = 3

Top = 600

Width = 2535

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Label1.Caption = Date

End Sub

Private Sub Command2_Click()

Label2.Caption = Time

End Sub

Private Sub Command3_Click()

Label3.Caption = WeekdayName(Weekday(Date)) End Sub

实验4

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 4305

ClientLeft = 60

ClientTop = 450

ClientWidth = 6345

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

LinkTopic = "Form1"

ScaleHeight = 4305

ScaleWidth = 6345

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "转换"

Height = 495

Left = 2160

TabIndex = 2

Top = 1800

Width = 1455

End

Begin VB.TextBox Text1

Height = 495

Left = 3480

TabIndex = 1

Top = 720

Width = 1455

End

Begin VB.Label Label2

Height = 975

Left = 360

TabIndex = 3

Top = 2760

Width = 5775

End

Begin VB.Label Label1

Caption = "请输入弧度数值:" Height = 495

Left = 600

TabIndex = 0

Top = 720

Width = 2415

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Private Sub Command1_Click()

Dim x!, a!, aa%, b!, bb%, c!, cc$

x = Val(Text1)

a = x * 180 / 3.14

aa = Int(a)

b = (a - aa) * 60

bb = Int(b)

c = (b - bb) * 60

cc = Format(c, "#.000")

Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3255

ClientLeft = 60

ClientTop = 450

ClientWidth = 4980

LinkTopic = "Form1"

ScaleHeight = 3255

ScaleWidth = 4980

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "判断"

Height = 495

Left = 1560

TabIndex = 2

Top = 1440

Width = 1335

End

Begin VB.TextBox Text1

Height = 615

Left = 960

TabIndex = 0

Top = 600

Width = 2655

End

Begin VB.Label Label2

Height = 735

Left = 960

TabIndex = 3

Top = 2160

Width = 2775

End

Begin VB.Label Label1

Caption = "输入一个年份:"

Height = 375

Left = 1320

TabIndex = 1

Top = 240

Width = 1935

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim x%

x = Val(Text1)

If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then Label2 = Text1 & "年是闰年"

Else

Label2 = Text1 & "年不是闰年"

End If

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "3个数排序"

Height = 495

Left = 1800

TabIndex = 0

Top = 1320

Width = 1215

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim x%, y%, z%

x = InputBox("输入第一个数")

y = InputBox("输入第二个数")

z = InputBox("输入第三个数")

If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, z

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 5430

ClientLeft = 60

ClientTop = 450

ClientWidth = 6975

LinkTopic = "Form1"

ScaleHeight = 5430

ScaleWidth = 6975

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command2 Caption = "结束"

Height = 495

Left = 3840

TabIndex = 1

Top = 2040

Width = 1215

End

Begin VB.CommandButton Command1 Caption = "计费"

Height = 495

Left = 1080

TabIndex = 0

Top = 2040

Width = 1215

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

x = Val(InputBox("请输入上网时间:"))

If x <> -1 Then

Select Case x

Case Is < 10

fei = 25

Case 10 To 50

fei = x * 2

Case 50 To 100

fei = x * 1.5

Case Is >= 100

fei = x * 1

End Select

MsgBox "上网费用为:" & fei & "元"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 4050

ClientLeft = 60

ClientTop = 450

ClientWidth = 6285

LinkTopic = "Form1"

ScaleHeight = 4050

ScaleWidth = 6285

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "弧度转换为度分秒" Height = 615

Left = 2160

TabIndex = 0

Top = 1560

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

x = InputBox("请输入弧度数值", "弧度转换", 0)

xx = Val(x)

a = x * 180 / 3.14

aa = Int(a)

b = (a - aa) * 60

bb = Int(b)

c = (b - bb) * 60

cc = Format(c, "#.000")

MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒" End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 5430

ClientLeft = 60

ClientTop = 450

ClientWidth = 6975

LinkTopic = "Form1"

ScaleHeight = 5430

ScaleWidth = 6975

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command2

Caption = "结束"

Height = 495

Left = 3840

TabIndex = 1

Top = 2040

Width = 1215

End

Begin VB.CommandButton Command1

Caption = "计费"

Height = 495

Left = 1080

TabIndex = 0

Top = 2040

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Do

x = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 Then

Select Case x

Case Is < 10

fei = 25

Case 10 To 50

fei = x * 2

Case 50 To 100

fei = x * 1.5

Case Is >= 100

fei = x * 1

End Select

zongfei = zongfei & Space(3) & fei

MsgBox zongfei, , "上网费用为"

Else

Exit Do

End If

Loop

End Sub

Private Sub Command2_Click()

End

End Sub

实验5

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 495

Left = 1800

TabIndex = 0

Top = 1320

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

For n = 1 To 100

s = s + n

Next n

Print s

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 495

Left = 1920

TabIndex = 0

Top = 1680

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

For i = 0 To 20

For j = 0 To 33

If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j

Next

Next

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 495

Left = 1800

TabIndex = 0

Top = 1320

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

n = 0

Do

If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Do

n = n + 1

Print n

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command2 Caption = "方法2"

Height = 495

Left = 2880

TabIndex = 1

Top = 1320

Width = 1215

End

Begin VB.CommandButton Command1 Caption = "方法1"

Height = 495

Left = 2880

TabIndex = 0

Top = 480

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim x%, y%, z%, i%, j%

For x = 0 To 9

For y = 0 To 9

For z = 0 To 9

i = x * 100 + x * 10 + z

j = y * 100 + z * 10 + z

If i + j = 532 Then Print x; y; z

Next

Next

End Sub

Private Sub Command2_Click()

For i = 0 To 9

For j = 0 To 9

For k = 0 To 9

If Val(i & i & k) + Val(j & k & k) = 532 Then Print i; j; k Next

Next

Next

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.TextBox Text1

Height = 615

Left = 1200

TabIndex = 1

Top = 840

Width = 2415

End

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 495

Left = 1920

TabIndex = 0

Top = 1920

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

x = Val(Text1)

y = x * 4

n = 0

Do While x <= y

x = x * (1 + 0.1)

n = n + 1

Print x

Loop

Print x, n

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 495

Left = 1800

TabIndex = 0

Top = 1320

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

n = Val(InputBox("输入计算到第几项:", , 0)) For i = 1 To n

s = s + (-1) ^ (i + 1) * i

Next

Print n, s

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command2

Caption = "双循环"

Height = 495

Left = 2520

TabIndex = 1

Top = 1680

Width = 1215

End

Begin VB.CommandButton Command1

Caption = "单循环"

Height = 495

Left = 600

TabIndex = 0

Top = 1680

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim n%, s%

n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0

For i = 1 To n

t = t + i

s = s + t

Next i

Print s

End Sub

Private Sub Command2_Click()

Dim n%, s%

n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0

For i = 1 To n

t = 0

For j = 1 To i

t = t + j

Next

s = s + t

Next

Print s

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 495

Left = 2160

TabIndex = 0

Top = 1920

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim s As Double, pi As Double

n = 1: s = 0

Do While 1 / (2 * n - 1) >= 0.0001

s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)

n = n + 1

Loop

pi = 4 * s

Print pi

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 495

Left = 1920

TabIndex = 0

Top = 1560

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

For n = 100 To 999

k = Trim(Str(n))

If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print n

Next

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 495

Left = 2160

TabIndex = 0

Top = 1800

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

For n = 999 To 100 Step -1

For i = 2 To n - 1

If n Mod i = 0 Then Exit For

Next i

If i = n Then

Print n

k = k + 1

End If

If k = 3 Then Exit For

Next n

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 8025

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 8025

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 495

Left = 1800

TabIndex = 0

Top = 1320

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

s = 0: Max = 0: Min = 1000

For i = 1 To 20

Randomize

x = Int(Rnd * 49 + 51)

Print x;

If x > Max Then Max = x

If x < Min Then Min = x

s = s + x

Next i

aver = s / 20

Print

Print "max="; Max, "min="; Min, "aver="; aver End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3090

ClientLeft = 60

ClientTop = 450

ClientWidth = 4680

LinkTopic = "Form1"

ScaleHeight = 3090

ScaleWidth = 4680

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command2

Caption = "方法2:双循环"

Height = 495

Left = 2640

TabIndex = 1

Top = 1800

Width = 1575

End

Begin VB.CommandButton Command1

Caption = "方法1:单循环" Height = 495

Left = 600

TabIndex = 0

Top = 1800

Width = 1455

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

For i = 1 To 4

Print Tab(20 - i); String(2 * i - 1, "*") Next

End Sub

Private Sub Command2_Click()

For i = 1 To 4

Print Tab(30 - i);

For j = 1 To 2 * i - 1

Print "*";

Next

Print

Next

End Sub

实验6

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 3990

ClientLeft = 60

ClientTop = 450

ClientWidth = 7095

LinkTopic = "Form1"

ScaleHeight = 3990

ScaleWidth = 7095

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1 Caption = "Command1" Height = 495

Left = 4680

TabIndex = 0

Top = 2880

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim i%, a%(1 To 10), max%, min%, avg! max = 0: min = 100: avg = 0

For i = 1 To 10

a(i) = Int(Rnd * 51 + 50)

Print a(i);

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) avg = avg + a(i)

Next i

Print

Print "--------------------"

Print max, min, avg / 10

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 4155

ClientLeft = 60

ClientTop = 450

ClientWidth = 6525

LinkTopic = "Form1"

ScaleHeight = 4155

ScaleWidth = 6525

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 495

Left = 4680

TabIndex = 0

Top = 3120

Width = 1215

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True Attribute VB_Exposed = False

Private Sub Command1_Click()

Dim a%(1 To 20), i%, y%, l%, z%, j%, b% For i = 1 To 20

a(i) = Int(Rnd * 101)

Print a(i);

If i Mod 10 = 0 Then Print

Select Case a(i)

Case 90 To 100

y = y + 1

Case 80 To 89

l = l + 1

Case Is >= 70

z = z + 1

Case Is >= 60

j = j + 1

Case Else

b = b + 1

End Select

Next i

Print "优秀:"; y

Print "良好:"; l

Print "中:"; z

Print "及格:"; j

Print "不及格:"; b

End Sub

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 4320

ClientLeft = 60

ClientTop = 450

猜你喜欢

最安全有效的减肥药

最安全有效的减肥药

编辑:小徐

现在的减肥药真的是真假难分,在选择减肥药的同时也应该更加小心,减肥药多种多样,那么如何才能选择最安全有效的减肥药,也成了很多小仙女的内心疑问,下面就跟着爱的奴隶2国语正在播放小编一起看一下,如何选择最安全有效的减肥药。 最安全有效的减肥药选购方法 1、首先需要观察产品的外包装,在包装中可以看到其配方是不是含有激素,含有激素的减肥药对身体的内..

吃减肥药失眠

吃减肥药失眠

编辑:小徐

随着现在流行以瘦为美,很多人会不顾身体的健康选择减肥药,达到快速减肥瘦身的效果,但是很多减肥药都是有副作用的,副作用比较轻的就是失眠现象,那么吃减肥药出现失眠是怎么回事儿?如果出现失眠后,我们应该怎样缓解? 吃减肥药失眠是怎么回事 减肥药中富含安非他命,所以减肥药服用了太多会有失眠现象,服用减肥药期间,身体会逐渐出现抗药性,身..

最新文章