内容发布更新时间 : 2024/5/18 15:28:44星期一 下面是文章的全部内容请认真阅读。

a(1) = 500: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20 a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1 i = 1

x = Val(Text1.Text) List1.Clear Do While x<>0

If x >= a(i) Then

List1.AddItem Str(a(i)) ① End If

i = i + 1 Loop End Sub

（1）如要将程序窗口标题“Form1”修改为“天平测质量”，则应该修改窗体的属性 （选填： Name / Caption / Text / Font）。

（2）为实现上述功能，划线①处应填入的代码为 x=x-a(i) 。 （3）程序正确运行后，在文本框Text1中输入701，并单击“计算”按钮。程序运行结果应为下图中的 （单选，填：A/B/C）。

A

B

C

8. 日期判断

从文本框Text1输入一个8位数字表示的日期，其中第1到4位表示年（第1位确定不为零），第5到6位表示月，第7到8位表示日。单击“判断”按钮，判断该日期是否合法，将结果依次输出到列表框List1。程序界面如下图所示：

提示：年份值符合下列两种情况之一的是闰年。

1.年份是4的倍数，但不是100的倍数；

2.年份是400的倍数。

（1）观察程序代码，可知“判断”按钮的对象名为 。（单选，填字母：A.Text1/B.List1/C.Command1/D.Judge/E.判断） （2）为实现上述功能，请在划线处填入合适的代码。 Private Sub Judge_Click()

Dim riqi As String, st As String

Dim year As Integer, month As Integer, day As Integer

Dim rn As Boolean, hefa As Boolean riqi = Text1.Text

year = Val(Mid(riqi, 1, 4)) month = Val(Mid(riqi, 5, 2))

day = ① Val(mid(riqi,7,2)) 或 Val(mid(riqi,7)) ‘第①处 st = Str(year) + \年\月\日\rn = False ‘用于判断是否为闰年

If ② year mod 400 =0 Then rn = True ‘第②处 If year Mod 4 = 0 And year Mod 100 <> 0 Then rn = True hefa = True ‘用于判断是否为合法日期 If month = 0 Or month > 12 Then hefa = False If day = 0 Then hefa = False

If (month = 1 Or month = 3 Or month = 5 Or month = 7 Or ’与下一行语句同行

month = 8 Or month = 10 Or month = 12) And day > 31 Then hefa = False If (month = 4 Or month = 6 Or month = 9 Or month = 11) ’与下一行语句同行 And day > 30 Then hefa = False

If ③ month=2 And rn=true And day>29 Then hefa = False

’第③处,判断闰年2月的天数是否合法

If month = 2 And Rn = False And day > 28 Then hefa = False

If hefa = True Then st = st + \合法日期\非法日期\List1.AddItem st End Sub

第①处代码为 第②处代码为 第③处代码为

9. 编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文

本框Text2中显示该金额的大写，程序运行界面如下图所示:

（1）要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将 Caption 属性的属性值改为“人

民币大小写”。

（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。 Private Sub Command1_Click() Dim dx As String, dw As String Dim s As String, c As String Dim ch As String Dim i As Integer

dx = \零壹贰叁肆伍陆柒捌玖拾\dw = \亿仟佰拾萬仟佰拾元\s = Text1.Text

If Len(s) > 9 ① Then

Text2.Text = \输入的数据超出所能转换的范围\Else

For i = 1 To Len(s) ch = ② Mid(s, i, 1)

c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1) Next i

Text2.Text = c + \整\End If

End Sub

（3）由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为 贰拾零元整。 10. 现要求编写VB程序，界面如第10题-1图所示，程序功能如下：单击开始暂时按钮Command1，图像控件Image1中的图片每隔5秒更换一张，再次单击Command1按钮，停止展示。 1 2 4 3 第10题-1图 第10题-2图

（1）为达到每隔5秒更换一张图片的效果，应使用第10题-2图所示的空间工具箱中的 3 (填写相应的编号)，并将其Interval属性值设置为 5000 。 （2）请根据题意讲下列程序补充完整

Private Sub Command1_Click () Dim i As Integer

If Command1.Caption = \开始展示\ Command1.Caption = \停止展示\ Timer1.Enabled = Ture Else

Command1.Caption = \开始展示\

Timer1.Enabled = False

End If End Sub

Private Sub Timer1_Timer() i = i + 1

If i > 5 Then i = 1

Image1.Picture = LoadPicture(i & “.jpg”) End Sub