18信息技术选考第二轮复习VB基础3.docxVIP

Double 类型变量 x 中 Double 类型变量 x 中 x=Rnd*10 Integer 类型变量 x 中 x=Int(rnd*10) Integer 类型变量 x 中 x=Int(rnd*11+5) Integer 类型变量 x 中 x=Int(rnd*12+5) a(i)一 对应的值 a(1) a⑵ a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) 5 9 -1 12 11 32 -7 2 22 3 口 第二轮VB基础3 行政班： 教学班： 姓名： 学号： 、随机函数 Rnd/Rnd() 记住：Rnd范围为［0,1) 1、 产生随机数，范围为［0 , 10)的实数，并存储在 2、 产生随机数，范围为［0 , 10)的整数，并存储在 3、 产生随机数，范围为［5 , 16)的整数，并存储在 4、 产生随机数，范围为［5 , 16］的整数，并存储在 例如：Dim a(1 to n) as Integer ,当n=10时，假设每个数组元素已经赋值如下:该文档为文档投稿赚钱网作品，版权所有，违责必纠 5、将数组元素a(i)的值在文本框 Text1上显示Text1.Text=Str(a(i))该文档为文档投稿赚钱网作品，版权所有，违责必纠 6、7、8、9、将数组元素 6、 7、 8、 9、 将数组元素a(i) 的值在标签 Label1 上显示 Label1.Caption=Str(a(i)) 将数组元素a(i)的值添加到列表框List1 将数组元素a(i)前面1个元素的值存储在 中显示 List1.AddItem Str(a(i)) Integer 类型变量 x 中 x=a(i-1) 将数组元素a(i) 后面1个元素的值存储在 Integer 类型变量 x 中 x=a(i+1) 、完善程序，并上机调试完成作品 编写程序实现如下功能 在文本框Text1中输入成绩x 如果x大于等于90,标签Lable1显示“A等” 如果90x 80,标签Lable1显示“ B等” 如果80x 70,标签Lable1显示“ C等” 如果70x 60,标签Lable1显示“ D等”该文档为文档投稿赚钱网作品，版权所有，违责必纠 如果x60，标签Lable1显示“ E等” 请使用一个块IF语句实现上述功能： Dim x As Integer x = Val(Text1.Text) If x = 90 Then该文档为文档投稿赚钱网作品，版权所有，违责必纠 Label2.Caption = A ElseIf x = 80 Then Label2.Caption = B该文档为文档投稿赚钱网作品，版权所有，违责必纠 ElseIf x = 70 Then Label2.Caption = C ElseIf x = 60 Then该文档为文档投稿赚钱网作品，版权所有，违责必纠 Label2.Caption = D Else Label2.Caption = E End If 、完善程序，并上机调试完成作品 程序运行(窗体加载)时，在列表框 Listl中显示20个随机数，随机数范围为【10,99】。单该文档为文档投稿赚钱网作品，版权所有，违责必纠 击按钮Commanl后在标签Labell显示最大元素的位置，Label2显示最大元素的值。该文档为文档投稿赚钱网作品，版权所有，违责必纠 最大倒元轰的值为 最大倒元轰的值为87 Const n = 20 Dim a(1 To n) As Integer Private Sub Form_Load()窗体加载事件处理过程 Dim i As Integer Randomize 随机初始化 以下代码实现产生随机数范围为【 10,99】，存储在数组a中，并在列表框List1显示该文档为文档投稿赚钱网作品，版权所有，违责必纠 End Sub Private Sub Command1_Click()按钮单击事件处理过程该文档为文档投稿赚钱网作品，版权所有，违责必纠 Dim i As Integer, k As Integer Dim max As Integer 以下代码实现，求数组 a中最大元素的下标，并存储在变量 k中 然后在标签Label1显示最大元素的位置，Label2显示最大元素的值。该文档为文档投稿赚钱网作品，版权所有，违责必纠 End Sub