相关试卷
-
1、在日常生活中，我们经常会遇到各种各样的问题，面对这些问题，人们总是会寻找合理的解决方法和步骤。我们把解决问题的方法和步骤称之为（ ）。A、N-S图 B、算法 C、流程图 D、自然语言
-
2、输入两个数(a,b)，输出最大数(max)；根据题意完成流程图，并将对应的程序填充完整
(1)、完成流程图① ② ③ ④
(2)、将对应的程序填充完整说明：text1.text、text2.text、text3.text分别表示a，b，max的值
Private Sub Command1_Click()
Dim a AS Integer, b AS Integer
Dim max AS Integer
a=
b=
If then
Else
End Sub
-
3、请在原程序上指出本程序的语法错误，并写出程序结果
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
Select Case x
Case Is >＝ 450
Text2.Text = "优秀"
Case Is >＝ 400
Text2.Text = "良好"
Case Is > 350
Text2.Text = "中等"
Case Is >＝ 300
Text2.Text = "及格"
Case Else
Text2.Text = "不及格"
End Select
End Sub
语法错误：
该程序运行后，若在文本框中输入350，则输出为：
-
4、VB中我们常常会碰到控件属性及数据类型的使用，请将下列名称与功能正确连接：
FontSize 文本颜色
ForeColor 标题
Caption 单精度实数
Single 字体大小
Font 字体
-
5、以下一段VB程序运行后，Y的值是（ ）
Dim Y As Integer
Y=0
Do While Y<30
Y=(Y+2)*(Y+3)
Loop
A、60 B、72 C、34 D、156 -
6、请选出下列书写正确的语句（ ）A、p=5 (a+b+p) B、if a>0 then b=b+1 C、t1.text=”请输入密码：” D、For i=1 to 10 do j=j*2
-
7、下列哪个不属于程序设计的基本结构（ ）A、顺序结构 B、链接结构 C、分支结构 D、循环结构
-
8、小明要用VB语句描述“AB”是小于100的非负数，正确的是（ ）A、0<=AB<100 B、0<=AB Or x<100 C、0<=AB And AB<100 D、0≤AB<100
-
9、下列属于正确的VB赋值语句的是（ ）A、var=Text1.Text B、x+y=3 C、Label1.Caption=“hello” D、-x=b
-
10、VB启动后，它的工作环境中的窗体，可用作定制应用程序界面的窗口，保存窗体后它的文件扩展名是（ ）A、.frm B、.exe C、.vbp D、.pdf
-
11、小明想学习一种计算机高级语言，下列哪个属于高级语言（ ）A、photoshop B、汇编语言 C、Visual Basic D、flash
-
12、在VB程序设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）A、工程资源管理器窗口 B、工具箱窗 C、代码窗口 D、属性窗口
-
13、a表示“处理框”，b表示“输入、输出框”，c表示“起、止框”，d表示“判断框”，以下四个图形依次为 ( )
①
② 
③ 
④ 
A、abcd B、dcab C、bacd D、cbad -
14、在VB程序中能把数值型转换为字符型需要使用的函数是（ ）A、Str B、Val C、Chr D、Sqr
-
15、用VB程序实现：过年的时候小李打算每个月都把一部分零花钱存起来，第一个月他存了10元，他准备以后每个月都比上个月多存2元。请问当小明的存钱达到1000元以上要几个月？
-
16、窗体上有四个文本框Text1控件数组，两个按钮Command1和Command2。程序功能是解一个一元二次方程ax2+bx+c=0（a≠0）。程序运行后如图所示。给定的程序不完整，将程序补充完整。
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single, det As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
det = ‘（根的判别式b2-4ac）
Select Case det
Case Is > 0
x1 = (-b + Sqr(det)) / (2 * a)
x2 = (-b - Sqr(det)) / (2 * a)
Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & " x=" & Str(x2)
Case Is = 0
Text4.Text = "方程有两个相等的实数根 x=" & Str(x1)
Case
Text4.Text = "此方程无实数根"
End Sub
-
17、完成流程图
⑤ ⑥
-
18、自从1946年出现第一台电子计算机以来，计算机技术以惊人速度发展着。计算机语言也从 ， 发展到 ， 再发展到高级语言。
-
19、计算机程序一般可以分为三种结构：顺序结构、结构和结构。
-
20、以下VB程序段运行后，x的值是（ ）
Dim x As Interger
x= 1
Do While x < 50
x = ( x + 1 )*( x + 2 )
Loop
A、50 B、56 C、72 D、6