VB题汇总.docVIP

2008考题: ⑴打开考生文件夹下的工程文件czxl.vbp，在窗体Form1上添加一个标签Label3（其名称属性为Label3），在属性窗口中将其Top属性值设置为1680；⑵按要求完善程序：火车站托运行李时，需要根据行李的重量按不同标准收费。若重量是50千克以内（含50千克），每千克按0.5元收费，超出的部分按每千克0.9元收费。在文本框Text1中输入行李重量，单击计算按钮时，在标签Label3上输出应付款。 ⑶操作完后将该程序以原文件名保存在考生文件夹下。 注：①运行时，把红色下划线删除; ②不要删除注释语句; Private Sub Command1_Click() Dim w, pay As Single w = Val(Text1.Text) If w = 50 Then 第一空 pay = w * 0.5 Else pay = 50 * 0.5 + (w - 50) * 0.9 第二空 End If Label3.Caption = Str(pay) 第三空 End Sub ⑴打开考生文件夹下的工程文件ex17.vbp，在窗体Form1上添加一个按钮Command1（其名称属性为Command1），在属性窗口中将其Caption属性值设置为计算；⑵完善程序，在Text1中输入一个直角三角形的斜边长度，在Text2中输入其一条直角边长度，单击按钮Command1时，计算该直角边对应的角α的正弦值和余弦值，并将结果输出在Label3上。⑶操作完后将该程序以原文件名保存在考生文件夹下。 注：①运行时，把红色下划线删除②不要删除注释语句 Private Sub Command1_Click() Dim a, b, c, sin, cos As Single c = Val(Text1.Text) a = Val(Text2.Text) 第一空 b = Sqr(c ^ 2 - a ^ 2) sin = a / c cos = b / c 第二空 Label3.Caption = 正弦值 Str(sin) 余弦值 Str(cos) End Sub ⑴打开考生文件夹下的工程文件ex18.vbp，在窗体Form1上添加一个命令按钮Command1（其名称属性为Command1），在属性窗口中将其Caption属性值设置为画图；⑵完善程序，单击画图 按钮，使其能输出如下图形。 * ** *** **** ***** ****** ⑶操作完后将该程序以原文件名保存在考生文件夹下。 注：①运行时，把红色下划线删除 ②不要删除注释语句 Private Sub Command1_Click() Dim i, j As Integer For i = 1 To 6 For j = 1 To i 第一空 Print *; Next j Print 第二空 Next i End Sub ⑴打开考生文件夹下的工程文件ex9.vbp，在窗体Form1上添加一个命令按钮Command1（其名称属性为Command1），在属性窗口中将其Caption属性值设置为计算；⑵完善程序（注意：不要删除注释语句）。目前世界人口为60亿，如果以每年1.4%的速度增长，求多少年后世界人口达到或超过70亿，并将结果在窗体上打印出来。⑶操作完后将该程序以原文件名保存在考生文件夹下。注：①运行时，把红色下划线删除。 Private Sub Command1_Click() Dim p As Double Dim r As Single Dim n As Integer p = 60 r = 0.014 n = 0 Do While __p70____ 第一空 p = p*(1+r) 第二空 n = n + 1 Loop Print n; 年后; 世界人口达; p; 亿 End Sub ⑴打开考生文件夹下的工程文件ex10.vbp，在窗体Form1上添加一个标签Label1（其名称属性为Label1），在属性窗口中将其Caption属性值设置为输入正整数；⑵完善程序（注意：不要删除注释语句），在文本框Text1中输入正整数n的值，单击窗体，求 的值，并将结果在窗体上打印出来。⑶操作完后将该程序以原文件名保存在考生文件夹下。注：①运行时，把红色下划线删除 Private Sub Form_click() Dim n As Integer n = Val(Text1.Text)