2023-2024学年人教版高一上学期选修1第一章第2节 编一个简单的VB程序

2023-2024学年人教版高一上学期选修1第一章第2节 编一个简单的VB程序 一、选择题 1．以下VB 程序段执行后，输出的结果是（    ） m=1 n=2 if true then print m  else print n A．1 B．2 C．1 2 D．2 1 2．当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为（   ） If a<b Then If c<d Then x="1" Else x=2   Else If c<d Then x=3  Else x=4   End If A．1 B．2 C．3 D．4 3．有如下 VB 程序段： t = "abcd123456" :   x = Int(Sqr(Len(t))) :   y=1 If  x > 3 Then    y =2 ElseIf x > 2 Then    y=3 ElseIf x > 1 Then    y=4 End  If 执行该程序段后，变量y的值为（   ） A．1 B．2 C．3 D．4 4．如第9题图所示在代码窗口中输入“Command1.”后出现了一个下拉菜单，菜单中的“Picture”是Command1的（   ） A．属性 B．事件 C．对象 D．方法 5．在 VB 中，在标签 Lab1 中显示"云富高中"，应改变的属性是（ ） A．Font B．Text C．Caption D．Backcolor 6．[加试题] 一个Visual Basic工程的部分设计界面如图所示，下列选项中正确的是（   ） A．窗体的Caption属性值是Form1 B．当前选中的对象类型是图像Image C．工程文件是cool.frm D．当前选中对象的名称是Command1 7．已知k为十进制多位整数，下列选项中能正确表示含义“若k的十位是偶数则a为1，否则a为2”的是（   ） A．a=1:if k mod 2<>0 then a=2 B．a=2:if k mod 100 \2 <>0 then a=1 C．If k\100 mod 2 <>0 then a=2 else a=1 D．if k\10 mod 2 =0 then a=1  else a=2 8．在VB中，如果用a、b、c表示三角形的三条边长，那么不能构成三角形的条件是（  ）。 A．a+b<=c And b+c<=a And c+a<=b B．Not(a+b>c Or b+c>a Or c+a>b) C．a+b<=c Or b+c<=a Or c+a<=b D．a+b>c And b+c>a And c+a>b 9．下列是事件的是（    ） A．LOAD B．SHOW C．PRINT D．CLS 10．描述算法的工具有流程图、伪代码和（   ） A．机器语言 B．汇编语言 C．高级语言 D．自然语言 11．在Visual Basic中使用“Caption”属性显示文字的控件类是 (     ) A．Label（标签） B．TextBox（文本框） C．shape（形状） D．ListBox（列表框） 12．关于利用计算机编程解决问题，下列说法正确的是（   ） A．编程解决问题就是编写程序代码 B．VB不是一种计算机编程语言 C．可以使用流程图描述算法 D．程序编写完毕后不用进行调试运行 13．表达式Abs(-10)*sqr(16)的值是（   ） A．-40 B．160 C．40 D．-160 14．已知a=-9，则VB表达式Sqr(Abs(a))的值为（   ） A．9 B．3 C．81 D．-3 15．已知整型变量a，b为小于20的正整数，下列VB语句交换变量a，b值方法错误的是（     ） A．a=a+b:b=a-b:a=a-b B．a=a-b:b=a+b:a=b-a C．a=a*b:b=a/b:a=a/b D．a=a/b:b=a*b:a=b/a 二、填空题 16．VB的三种工作模式是 ， ， 17．第一个文本框的默认名称是( ). 18．输入a=1，b=2，输出结果： 19．文本框中内容由( )属性决定. 20．如下Visual Basic程序段： a = 3.14 b = 20 c =" Int(a)" + b 该程序段运行后，变量c的值为____________。 三、操作题 21．在VB集成开发环境中，有三种工作模式，可以单击工具栏上的按钮，可以 程序；单击工具栏上的进入中断模式；单击工具栏上的按钮结束运行。 绘制函数图像y=x2 的VB源代码如下，请补充完整。 Private Sub Command1_Click()                   '按钮的单击事件     Dim x, y As Single                         '定义x,y两个变量     Picture1.Scale (-10, 25)-(10, -25)             '定义坐标系     Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)   '画横坐标轴，颜色为蓝色     Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)   '画纵坐标轴，颜色为蓝色     For x = -10 To 10 Step 0.0001             'x值从-10变化到10，每次增量为0.0001                                    '本行代码计算函数y=x2        Picture1.PSet (x, y), RGB(255, 0, 0)         '根据x,y的值用红色描点     Next x                                    '取下一个增量后的x值 End Sub 以上的VB计算机语言是 语言。（已知计算机语言有：机器语言、汇编语言、高级语言） 22．编写VB程序，实现在1到40中随机抽取n个不重复的数字。在文本框Text1中输入需要抽取的个数n，单击“抽取”按钮 Command1，在列表List1中输出结果，程序设 计界面如图a所示。请回答下列问题： 图 a （1）在设计程序界面时，应使用图 b 所示“控件工具箱”中的 (填写相应编号)添加列表框。 图 b （2）实现上述功能的VB程序如下，请在划线处填写合适的代码。 Private Sub Command1_Click() Dim a(1 To 40) As Integer Dim i As Integer List1.Clear n = Val(Text1.Text) Randomize For i = 1 To n ①     ’随机生成[1，40]之间的正整数 For j = 1 To i - 1 If a(j) = a(i) Then Exit For End If Next j Next i For i = 1 To n List1.AddItem Str(a(i)) Next i End Sub （3）加框处代码有误，请改正 。 （4） 运行程序，在文本框 Text1 中输入 41，单击“抽取”按钮，程序错误提示为 。（填写字母：A．溢出/B．下标越界/C．缺少对象） 四、简答题 23．闰年的条件是：年份（Y）能被4整除，但不能被100整除。请写出表示闰年的VB表达式。 试卷第1页，共3页 试卷第1页，共3页 学科网（北京）股份有限公司 参考答案： 1．A 2．B 3．C 4．A 5．C 6．A 7．D 8．C 9．A 10．D 11．A 12．C 13．C 14．B 15．D 16． 设计 运行 BREAK 17．TEXT1 18．2.5 19．TEXT 20．23 21． 启动 y=x ^2  (或y=x*x) 高级 22． 4 a(i)=Int(Rnd*40)+1 或 a(i)=Int(Rnd*40+1) i=i-1 B 23．Y MOD 4=0  AND  Y MOD 100<>0 答案第1页，共2页 答案第1页，共2页 学科网（北京）股份有限公司 $$