浙教版初中信息技术九年级上学期期末试题（4）

下列不属于计算机语言的高级语言的是（    ）

VB程序在保存工程的时候生成的工程文件后缀名是（    ）

想要改变对象的文字颜色，我们可以修改以下哪个属性值来实现（    ）

下列对象不具有Caption属性的是（    ）

下列VB赋值语句中不正确的的是（    ）

由“For i=1 To 10 Step 2”决定的循环结构被执行的次数是（    ）

下列常用函数中表示求x的算数平方根的是（    ）

在for-----next 循环结构的语句中的循环变量可以是 （    ）

我们在优化“海伦公式求三角形面积”程序，判断a、b、c三边能否构成三角形条件是：a+b>c，b+c>a,a+c>b三个条件同事满足，在VB程序中表示该条件的逻辑表达式是 （    ）

以下VB程序段运行后，x的值是（    ）

Dim x As Interger

x= 1

Do While x < 50

    x = ( x + 1 )*( x + 2 )

Loop

计算机程序一般可以分为三种结构：顺序结构、结构和结构。

自从1946年出现第一台电子计算机以来，计算机技术以惊人速度发展着。计算机语言也从，发展到，再发展到高级语言。

完成流程图

⑤ ⑥ 

窗体上有四个文本框Text1控件数组，两个按钮Command1和Command2。程序功能是解一个一元二次方程ax²+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 =      ‘（根的判别式b²-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

用VB程序实现：过年的时候小李打算每个月都把一部分零花钱存起来，第一个月他存了10元，他准备以后每个月都比上个月多存2元。请问当小明的存钱达到1000元以上要几个月？