问题 问答题

在考生目录下有一个工程文件sjt4.vbp,及窗体文件sjt4.frm,该程序是不完整的,请根据下面的描述,编写Select分支结构的Case语句部分,以满足题目的要求。注意:不得增行或减行,也不能更改程序的结构。存盘时不得改变文件名和文件夹。
本题捕述如下:在窗体Form1上有6个标签、6个文本框以及1个控制按钮。标签、文本框和控制按钮都使用默认的Name属性,标签与控制按钮的标题如下图所示。窗体上所有控件的属性都在程序代码中设置。本程序运行时使用随机数模拟掷骰子(六面,分别为1点、2点、3点、4点、5点、6点)计算出现1点、2点、3点、4点、5点、6点朝上的概率。


程序运行时的窗体界面如下图所示。
试题源程序:
1 Private Sub Command1 Click( )
2 Me. Timer1. Enabied =True
3 End Sub
4 Private Sub Form_Load( )
5 Form1. Caption="掷骰子概率"
6 Me. Timer1. Interval=100
7 Me. Timer1. Enabled=False
8 End Sub
9 Private Sub Timer1_Timer( )
10 Randomize
11 Static n As Integer
12 Static n1 As Integer
13 Static n2 As Integer
14 Static n3 As Integer
15 Static n4 As Integer
16 Static n5 As Integer
17 Static n6 As Integer
18 Dim temp As Integer
19 n=n+1
20 temp=Int(Rnd*6+1)
21 Select Case temp
22 ’
23 End Select
24 End Sub

答案

参考答案:第一步:启动Visual Basic,打开考生文件夹下的工程文件T502.vbp。
第二步:双击窗体的任何部分,进入程序编写窗口,补充Select语句中的程序如下:
1 Case 1
2 n1=n1+1
3 Me.Text1.Text.= Format(n1/n."0.00")
4 Case 2
5 n2=n2+1
6 Me.Text2.Text=Format(n2/n,"0.00")
7 Case 3
8 n3=n3+1
9 Me.Text3.Text= Format(n3/n."0.00")
10 Case 4
11 n4=n4+1
12 Me.Text4.Text= Format(n4/n,"0.00")
13 Case 5
14 n5=n5+1
15 Me.Text5.Text=Format(n5/n,"0.00")
16 Case 6
17 n6=n6+1
18 Me.Text6.Text=Format (n6/n,"0.00")
笫三步:补充完毕,调试程序,确定正确后,将工程与窗体以原文件名保存在考生文件夹下。

解析: 本题主要考查了Select Case语句的使用。本题中,由于有六种情况,故Case语句中共有六个分支,对应不同的六面。Format( )函数用以返回指定格式的字符串。0表示一个数字位,多余的位以0补齐;小数点与0结合使用,可以放在显示区段的任何位置,根据格式字符串的位置,小数部分多余的数字按四舍五入处理。

选择题
单项选择题