VB专题题
End Sub
7、生活中,许多女士喜欢穿高跟鞋,那穿高跟鞋会使人感到美吗?黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说,这一比值越接近0.618,愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序(界面如右图所示),实现如下功能:首先,设某女躯干a米和身高b米比为g,分别从文本框Text1和Text2中输入。鞋跟高度s(单位与a、b一致)从Text3中输入,那么新比值g=(a+s)/(b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。
(1)应用程序界面设计时,为显示新比值,需在窗体中添加 控件,并将它的 属性值设置为空。 (2)请根据题意将下列程序补充完整。 Private Sub Command1_Click( )
Dim a As Single,b As Single,s As Single,g As Single End Sub
8、身体质量指数BMI是目前国际上常用的衡量人体胖瘦程序以及是否健康的标准之一。科学家通过大量的统计、分析,推导出BMI值与体重(w,单位kg)成正比,与身高(h,单位m)的平方成反比。 BMI=w/h2 成人的BMI数值参考: 偏瘦:低于20 正常:20~25 偏胖:高于25 最理想的体重指数是:22 下面VB程序的功能用于计算身体指数并判断体型。在文本框Text1和Text2中输入体重(w)和身高(h)的值,单击“测试”按钮,在文本框Text3中显示指数的值(结果取整),并根据此值在Label5中显示相应的体型参考和最理想体重(ok)。程序运行界面如图所示:
a=Val(Text1.Text) b=Val(Text2.Text) s=Val(Text3.Text) Label5.Caption= ①
第6页
VB专题题
VB程序如下:
Private Sub Command1_Click()
Dim h As Single, w As Single, BMI As Single, ok As Single h =Val(Text1.Text) w =Val(Text2.Text) BMI = ① ok = Int(22 ", h ^ 2) Text3.Text =Str(BMI) If ② Then Label5.Caption = ″偏瘦。″ ElseIf BMI <= 25 Then Label5.Caption = ″正常。″ Else
Label5.Caption = ″偏胖。″ End If
Label5.Caption = Label5.Caption + ″最佳体重是″ + Str(ok) + ″kg″ End Sub
(1)程序中画线①处应填入的语句是 。 (2)程序中画线②处应填入的语句是 。
（3）程序中用到的算法是_______________________（填写：解析算法或枚举算法）
9、(2016·4浙江学考)编写VB程序,实现如下功能:在文本框Text1中输入某一年份,单击“天干地支与生肖”按钮Command1,在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”,运行界面如图所示,程序代码如下。
(1)代码“Private Sub Command1_Click( )”中的Click是 。(单选,填字母:A.对象名/B.属性名/C.事件名) (2)为实现上述功能,请在画线处填入合适的代码。 Private Sub Command1_Click( )
Dim a As Integer, b As Integer Dim i As Integer, n As Integer Dim c1 As String, s1 As String Dim c2 As String, s2 As String Dim c3 As String, s3 As String List1.Clear
第7页
VB专题题
Next i End Sub
(3)由上述算法可知,2024年对应的“天干地支”为 。
10、某“掷骰子游戏”的VB程序界面如下图示,单击按钮Command1,在标签Label1上显示点数(点数是1到6之间的整数,含数字1和6),按钮上文字由“甲方”变为“乙方”,再次单击按钮上文字由“乙方”变为“甲方”。
s1=″甲乙丙丁戊己庚辛壬癸″ s2=″子丑寅卯辰巳午未申酉戌亥″ s3=″鼠牛虎兔龙蛇马羊猴鸡狗猪″ n=Val(Text1.Text) For i=n To ① a=(i+6) Mod 10 b=(i+8) Mod 12 c1=Mid(s1, a+1, 1) c2=Mid(s2, b+1, 1) c3=Mid(s3, b+1, 1)
List1.AddItem ② +″年″ + c1 + c2 +″″ + c3
(1)窗体标题“掷骰子游戏”是通过设置窗体的 属性值得到。 (2)Command1对象的单击事件处理过程如下: Private Sub Command1_Click( ) End Sub
为实现上述功能,在程序画线处填入适当的语句和代码,把程序补充完整。 程序①处的语句为 。 程序②处的语句为 。
第8页
Randomize x= ① Label1.Caption=Str(x) If ② Then Command1.Caption=″乙方″ Else
Command1.Caption=″甲方″ End If
VB专题题
答案
1、(1)①a=i Mod 10 ②s+1 (2)AB 2、①str(a(i)) ②1 To 10 Step 1或1 to 10
解析： ①处是把产生的随机3位自然数a(i)显示在列表框List1中,所以该处填“a(i)”; ②处循环依次判断数组a中元素的奇偶性,所以该填“1 To 10”或“1 To 10 Step1”。 3、(1)4 (2)①Val(Text1.Text) ②n-1 ③s-x
解析： (1)工具箱中1是标签,2是文本框,3是复选框,4是列表框。(2)①变量s存放发放红包的总金额,该数据来自文本框Text1的Text属性;②由提示可知,循环次数是n-1;③每发放一个红包x后,总金额s须减去x。 4、(1)①Text1.Text ②c>=″a″ And c<=″z″ (2)32
解析： (1)①变量a存储文本框Text1中输入的字符,所以①处填Text1.Text。②处判断c中的字符是否为小写字母,可用表达式c>=″a″And c<=″z″进行判断。(2)程序中的语句c=Chr(Asc(c)-32)就将小写字母转换为大写字母,由此可知,小写字母比大写字母的ASCII编码值大32。 5、(1)3 (2)①j=m ②j-i
解析： (1)显示图像的控件是image。
(2)程序中,变量i表示根区间起始点,j表示根区间结束点,m为中点,r为误差率,r=j-i。循环中,首先算出中点值m,再计算方程的值y,如果y>0,则区间应该往左移动,结束点j=m,如果y<0,则区间应该往右移动,起始点i=m。 6、(1)4 (2)Int(Rnd*3) （3） List1.Additem s
解析： 程序通过9个If语句判断胜负情况,结果存放在变量s中,最后把结果显示在List1中。在列表框中添加一行数据,可使用Additem方法。
7、 (1)标签或Label Caption (2)str((a+s)/(b+s)) 8、答案： (1)Int(w/h ^ 2) (2)BMI < 20 (3)解析算法
解析： 本题根据体重与身高求解体质指数BMI,两者之间的关系为BMI=w/h^2,所以①处应填入Int(w/h ^ 2)。根据成人的BMI数值参考,低于20属于偏瘦,所以②处应填入BMI < 20。程序采用的算法是解析 算法。 9、答案： (1)C (2)①n+11 ②str(i) (3)甲辰
解析： (1)代码“Private Sub Command1_Click()”中的Command1是对象名,Click是事件名,Command1_Click则是事件处理过程的名称。
(2)程序通过循环列举12个年份对应的“天干地支”与“生肖”信息,年份i的值从n到n+11,因此1处填n+11。根据运行界面图中显示的形式可知,变量C1表示天干,C2表示地支,C3表示生肖,所以2处填str(i)。 (3)通过程序a = (i + 6) Mod 10和c1 = Mid(s1, a + 1, 1)可知天干,a=(2024+6)Mod 10=0,c1 = Mid(s1, a+1, 1)=“甲”。通过程序b = (i+8) Mod 12和c2 = Mid(s2, b+1, 1)可知地支,b=(2024+8)Mod 12=4,c2 = Mid(s2, b+1, 1)=“辰”。
10、答案： (1)caption (2) ①Int(Rnd * 6) + 1 ②Command1.Caption=″甲方″
第9页