VB程序代码
1、程序填空。程序的功能是通过Inputbox
函
关于工期滞后的函关于工程严重滞后的函关于工程进度滞后的回复函关于征求同志党风廉政意见的函关于征求廉洁自律情况的复函
数输入年龄，再使用Msgbox输出出生年份。例如用户在输入对话框中输入年龄为“19”，则在消息对话框中输出“你的出生年份是1989”。程序运行情况如图所示,程序如下，请将空缺部分补充完整。
Private Sub Command1_Click()
Dim age As Integer, y As Integer
age = Val(InputBox("请输入你的年龄:", "年龄", 0))
y = Year(Date) - age
respond = MsgBox("你的出生年份是:" & y, vbYesNo, "年份")
End Sub
Private Sub Form_Click()
Dim age As Integer, y As Integer
age = Val(InputBox(" ","年龄"，0))
y = Year( ) - age
MsgBox , , "年份"
End Sub
2. 欧洲科学家用于预测子女身高的计算公式如下:
儿子成年身高(cm),(父亲身高，母亲身高)×1.08/2
女儿成年身高(cm),(父亲身高×0.923，母亲身高)/2
根据上述计算公式编写如图4-6所示运行界面的程序，在文本框中分别输入父亲和母亲身高之后，单击“男孩”或“女孩”单选按钮，即在标签Label中输出预测结果。
3. 查询百分制的等级, 运行结果应如图4-8所示。请画出流程图并设计程序上机调试。
Private Sub Command1_Click()
Dim s As Single
s = Text1.Text
If s < 60 Then
Text1 = "不及格"
ElseIf s < 70 Then
Text1 = "及格"
ElseIf s < 80 Then
Text1 = "良"
ElseIf s < 90 Then
Text1 = "优良"
ElseIf s <= 100 Then
Text1 = "优秀"
ElseIf s > "100" Then
Text1 = "你输入的分数不符合格式～"
End If
End Sub
4、 设计程序，利用文本框输入用户密码(假设密码为12345678)，单击“检查”按钮后，
检查输入的密码是否正确，并通过消息对话框显示“欢迎你用机”或“对不起，密码错”。
Private Sub Command1_Click()
Dim m As Double
m = Val(Text1.Text)
If m = Val(12345678) Then
respond = MsgBox("欢迎使用～", vbOKOnly, "密码正确～")
Else
respond = MsgBox("对不起，你的密码有误～", vbOKOnly, "密码错误～")
End If
End Sub
5、 在文本框中输入字符串，统计其中数字字符出现的个数。流程如图5-4所示，程序代码
如下。
开始开始
c = Text1.Textc = Text1.Text
p= 1p= 1
––p<=len(c)p<=len(c)
++
c1 = Mid(c,i,1)c1 = Mid(c,i,1)
––C1C1是大写字母是大写字母
++
n1=n1+1n1=n1+1
p= p+1p= p+1
显示结果显示结果
结束结束
图图5-4 5-4 实例实例33流程图流程图流程图
Private Sub Command1_Click()
Dim c As String, c1 As String, p As Integer, n As Integer
c = Text1.Text
For p = 1 To Len(c)
c1 = Mid(c, p, 1)
If c1 >= "0" And c1 <= "9" Then n = n + 1
Next p
Label1.Caption = " 数字字符的个数为:" & Str(n)
End Sub
图5-5 实例3程序运行界面 图图5-5 5-5 实例实例33程序运行界面程序运行界面
分析:本
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
的意图是需要对输入的字符串的每个字符逐个的进行判断，因此判断的语句需要被重复执行，就需要用循环结构来控制。循环体的内容就是从字符串中取一个字符，再判断该字符的类型;循环的次数是已知的，就是字符串中的字符个数，因此用For Next循环语句。
6. 有一堆苹果，个数在50至500之间，按5人均分余4个，按6人均分余3个，按7人均分余2个，用穷举法设计程序，输出苹果有多少个,共有几种分法,流程如图5-13所示，请写出相应程序，并上机调试。
图图5-21 5-21 看图写程序第看图写程序第22题程序运行结果题程序运行结果
开始开始
n= 0n= 0
k= 50k= 50
––k<=500k<=500
++
––k mod 5=4 and k mod 6=3 and k mod 7=2k mod 5=4 and k mod 6=3 and k mod 7=2
++
n=n+1n=n+1
print kprint k
输出输出nn
k= k+1k= k+1
结束结束
图图5-20 5-20 看图写程序第看图写程序第22题流程图题流程图流程图
7. 执行下面程序，单击窗体后，窗体上显示的内容是( 0 )
Private Sub Form_Click()
For I = 0 To 10 Step -2
I = I + 2
Next
Print I
End Sub
8. 运行下面程序后，单击命令按钮Command1，则在标签框Label1 中显示的结果是:
Private Sub Command1_Click (CISAB-----)
X = “BASIC”
L = Len (X )
For k= 1 To L
V = Mid ( X, k, 1 )
W = V + W + “-“
Next k
Label1.Caption = W
End Sub
浙公网安备 33021202002483