【2017年整理】vb练习卷.docVIP

1.编写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 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 Next i End Sub （3）由上述算法可知，2024年对应的“天干地支”为 。 2.编写VB程序，实现如下功能：在文本框Text1中输入发放红包的总金额s，在文本框Text2中输入发放红包的个数n，单击“分配”按钮（Command1），为n个红包随机分配金额，并在列表框List1中显示分配后的这些金额。界面如图14题-1图所示。 第14题-1图 第14题-2图 （1）在设计应用程序界面时，应使用第14题-2图所示“控件工具箱”中的 （填写相应编号）添加列表框List1；并设置文本框Text1和Text2的 属性的值为空。（2分） （2）为实现上述功能，请在划线①②③处填入合适代码。（6分） Private Sub Command1_Click() Dim s As Single, x As Single, n As Integer, i As Integer Randomize List1.Clear s = ① n = Val(Text2.Text) For i = 1 To n - 1 通过循环语句产生n-1个红包的随机值 x = Int((Rnd() * s / ( ② ) + 0.005) * 100) / 100 List1.AddItem Str(x) s = ③ Next i x = Int((s + 0.005) * 100) / 100 产生最后一个红包 List1.AddItem Str(x) End Sub 3.编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第11题-1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。 第11题-1图 第11题-2图 （1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（第11题-2图) 中将 属性的属性值修改为“转换”。 （2）为实现上述功能，请在划线处填入合适代码或选项。 Private Sub Command1_Click() Dim t1 As Integer, t2 As Integer Dim i As Integer, t As Integer Dim f As Single List1.Clear t1 = Val(Text1.Text) t2 = Val(Text2.Text) If ① Then (选填字母,从下列A、B、C、D四个选项中选取一项） t = t1: t1 = t2: t2 = t End If i = t1 Do While ② (选填字母,从下列A、B、C、D四个选项中选取一项） f = i * 9 / 5 + 32 摄氏温度转换为华氏温度 List1.AddIte