初中VB程序代码编写

1.新建工程

2.在窗体上拖放一个label标签，默认名称label1

3.拖放一个按钮，caption属性填写“显示”

4.复制这个按钮，粘贴，这是会d出对话框，点击“是”

5.修改这个刚复制的按钮，caption属性填写“退出”

6.双击窗体，会自动打开代码窗口，把里面的内容全部删除，然后把以上代码粘贴进去

i=3

s=s-i=20-3=17

i=4

s=s-i=17-4=13

i=5

s=s-i=13-5=8

最后结果s为8

'10元和50元两种纸币组成240元,列出所有不同的取法和种数.

Private Sub Command1_Click()

Dim a%, b%, count%

For a = 1 To 19

For b = 1 To 4

If a * 10 + b * 50 = 240 Then

Print a"张10元和"b"张50元"

count = count + 1

End If

Next b

Next a

Print "共有"count"种不同的取法"

End Sub

'1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.

Private Sub Command1_Click()

Dim i%, count%

For i = 10047 To 19947 Step 100

If i Mod 57 = 0 Or i Mod 67 = 0 Then

Print i

count = count + 1

End If

Next

Print "共有"count"个这样的数"

End Sub

'鸡兔同笼共50只，有腿160只，求鸡和兔各多少只？

Private Sub Command1_Click()

Dim x As Integer

Dim y As Integer

h = 50

f = 160

x = 2 * h - f / 2

y = f / 2 - h

MsgBox "鸡的只数为：" &x &vbCrLf &"兔子的只数为：" &y

End Sub

---