相关试卷

1、编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图1所示。

(1)、在设计程序界面时，应使用图2所示“控件工具箱”中的(填写相应编号)添加“生成”按钮。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click( )

    Dim n As Integer，i As Integer，a As Integer，b As Integer

    Randomize

    n=Val(Text1.Text)

    i=

    Do While i<=n

        a=Int(Rnd*100)

        b=Int(Rnd*100)

        IfThen

            List1.AddItem“(“+Str(i)+”)“+Str(a)+”+“+Str(b)+”=”

            i=i+1

        End If

    Loop

End Sub

(3)、运行该程序，在文本框中输入5，单击“生成”按钮后，对语句“a=Int(Rnd*100)”执行次数的描述，最合理的是(单选，填字母：A .执行次数等于5 / B .执行次数大于等于5 / C .执行次数小于等于5)。

查看解析
2、小明编写了一个VB程序，功能如下：输入一个不超过10000的整数，若该数的各位数字之积是其各位数字之和的倍数，则输出“Yes”，否则输出“No”。
程序运行时，在文本框Text1中输入一个整数，单击“判断”按钮Command1后，在标签Label3中显示判断结果。程序运行界面如下图所示。

(1)、在设计程序界面时，要清空标签Label3中的显示内容，应修改该标签的属性。

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()

   Dim x As Integer, h As Integer, k As Integer

   x = Val(Text1.Text)

   h = 0

   k=1

    Do While x > 0

      h = h + x Mod 10

        k=

        x = x \ 10

    Loop

    IfThen

      Label3.Caption = “Yes”

    Else

      Label3.Caption = “No”

    End If

End Sub

(3)、运行该程序，在文本框Text1中输入1234，单击“判断”按钮，显示的判断结果为。

查看解析
3、编写VB程序，实现如下功能：在文本框中输入一个整数，单击“计算”按钮Command1，则输出表达式的值。程序运行界面如下图所示。

(1)、该VB窗体上共包含类对象。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

    Dim n As Integer, p As Long, s As Double, i As Integer, t As Integer

    s = 0

t = 1

p = 0

n = Val(Text1.Text)

For i = 1 To n

   s = s + t * 1 / p

Next i

Label1.Caption = Str(s)

End Sub

(3)、运行该程序，在文本框Text1中输入5，单击“计算”按钮，则表达式的值是。

查看解析

4、小明编写了一个计算BMI指数的VB程序。BMI指数(即身体质量指数，称简体质指数又称体重，英文为Body Mass Index，简称BMI)，是用体重(公斤)除以身高(米)平方得出的数字，是目前国际上常用的衡量人体胖瘦程度以及是否健康的一个标准，BMI指数的判断标准如下表所示：

BMI指数	<18.522.9	18.5～23～	25～24.9	29.9	≥30	≥40.0
结果	偏瘦	正常	偏胖	肥胖	重度肥胖	极重度肥胖

程序运行时，在文本框Text1中输入体重，在文本框Text2中输入身高，单击”测试”按钮Command1，在标签Label4中显示对应的结果。程序运行界面如下图所示。

实现上述功能的VB程序如下，请回答下列问题：

Private Sub Command1_Click()

Dim h As Single, w As Single, ans As Single, s As String

w = Val(Text1.Text)

h = Val(Text2.Text)

①

If ans< 18.5 Then

s = “偏瘦”

ElseIf ans< 22.9 Then

s = “正常”

ElseIf ans<= 24.9 Then

s = “偏胖”

ElseIf ans<= 29.9 Then

s = “肥胖”

ElseIf ans< 40 Then

s = “重度肥胖”

②

s = “极重度肥胖”

End If

Label4.Caption = s

End Sub

(1)、程序代码“Private Sub Command1_Click()”中Command1_Click()是指(选填：对象 / 属性 / 过程 / 事件 / 方法)。

(2)、请在程序划线处填入合适代码。

① ②

(3)、程序运行时，输入体重70，身高1.65，则测试结果为。

查看解析

5、有如下VB程序段：
n = 0

For i = 1 To Len(Text1.Text)

    c = Mid(Text1.Text, i, 1)

    If c >= “0” And c <= “9” Then m = 1 Else m = 2

    a(m) = a(m) + 1

    If a(m) = 1 Then n = n + 1

Next i

数组a各元素的初始值都为0，文本框Text1的内容为“Happy2018”。执行程序后，变量n的值为( )

A、1 B、2 C、4 D、9

查看解析
6、计算斐波那契数列的前n项。该数列从第 3 项开始，每一项都等于前两项之和，其中第1项为1，第2项也为1。计算前第 n项的 VB程序段如下所示：
Private Sub Command1_Click()

    Dim n As Integer，i As Integer，a As Long，b As Long，c As Long

   a = 1

    b = 1

    n = Val(Text1.Text)

    List1.AddItem Str(a)

    List1.AddItem Str(b)

    For i = 3 To n







        List1.AddItem Str(c)

    Next i

End Sub

上述程序中方框处可选语句为( )

①a=b ②c=a+b ③b=c

A、①、②、③ B、①、③、② C、③、①、② D、②、①、③

查看解析
7、有如下VB程序段：
Dim a(1 To 6) As Long, i As Integer, x As Long, y As Long

x = 654321

For i = 1 To 6

    a(i) = x Mod 10

    x = x \ 10

    y = y + a(i) * 10 ^ (6 － i + 1)

Next i

执行该程序段后，变量y的值为( )

A、123456 B、1234560 C、6543210 D、654321

查看解析
8、有如下VB程序段：
Dim i As Integer, j As Integer, st As String

n = 5

For i = 1 To 5

    st = “ ”

    If i < 4 Then

      For j = 1 To i

          st = st + “*”

        Next j

    Else

        For j = i To n

          st = st + “*”

        Next j

    End If

    List1.AddItem st

Next i

该程序段运行后，在列表框List1中显示的内容是( )

A、 B、 C、 D、

查看解析
9、有如下 VB 程序段：
a(1) = 10

For i = 2 To 10

   a(i) = 0

    If i Mod 2 = 1 Then

        a(i) = a(i \ 2) + a(i － 1)

    Else

        a(i) = a(i) + 1

    End If

Next i

该程序段执行后，数组元素a(7)的值是( )

A、2 B、10 C、11 D、12

查看解析
10、有如下VB程序段：
Dim d As Integer, p As Integer

p = 2

d = 10

Do While d > 1

p = 2 * p

d = d － 1

Loop

Label1.Caption = Str(p)

该程序段运行后，在标签Label1中显示的内容是( )

A、2 B、512 C、1024 D、2048

查看解析
11、有如下VB程序段：
s = 0: i = 1

Do While i <= 10

  If i Mod 3 = 0 Then a(i) = a(i) + 1 Else a(i) = i

   List1.AddItem Str(a(i))

   i = i + 1

Loop

i = 10

Do While i >= 1

   If a(i) = 1 Then s = s + 1

    i = i － 1

Loop

该程序段运行后，变量s值是( )

A、3 B、4 C、5 D、9

查看解析
12、有如下VB程序段：
Dim x As String, y As String, z As Boolean

x = Text1.Text

y = Text2.Text

z = x + y > y + x

Text3.Text = z

程序运行时，在文本框Text1中输入12121，在文本框Text2中输入121，则在文本框Text3中显示的内容为( )

A、12121121 B、12112121 C、True D、False

查看解析
13、某算法的部分流程图如下图所示。

输入x的值为1，执行完这部分流程后，变量s的值是( )

A、0 B、14 C、20 D、44

查看解析
14、某算法的部分流程图如下图所示，执行这部分流程后，输出x，y的值分别是( )

A、0，3 B、3，1 C、3，0 D、0，35

查看解析
15、小明设计了一个验证自由落体规律的实验：小球从高处静止状态垂直下落，用照相机每隔0.1秒拍照1次，测得实验数据如下：

拍照时刻(秒)

0.1

0.2

0.3

0.4

0.5

下落距离测量值(米)

0.049

0.195

0.44

0.785

1.225

现要求编写一个VB程序实现如下功能：单击命令按钮Command1后，由公式h＝ gt²(其中g＝9.8米/秒²)计算出第一拍照时刻的下落距离理论值，若所有理论值与同一时刻测量值之间的相对误差都小于0.01，则认为小球在0.5秒内是作自由落体运动，此时在标签Label1中显示“验证通过”，否则显示“验证不通过”。

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()

    Dim h1(1 To 5) As Single    'h1用于存储下落距离测量值

    Dim h As Single, i As Integer      'h用于存储下落距离理论值

    Dim t As Single, g As Single, b As Boolean

    h1(1) ＝ 0.049: h1(2) ＝ 0.195: h1(3) ＝ 0.44: h1(4) ＝ 0.785: h1(5) ＝ 1.225

    i ＝ 1: b ＝ True



    Do While i <＝ 5 And b

        t ＝ i / 10

        h ＝ g * t * t / 2

        If Then b ＝ False

        i ＝ i ＋ 1

    Loop

    If b Then

        Label1.Caption ＝ “验证通过”

    Else

        Label1.Caption ＝ “验证不通过”

    End If

End Sub

查看解析
16、下列VB程序的功能是：程序运行时，在文本框Textin中输入正整数n.单击命令按钮Command1后，统计1至n的整数中包含数字2的整数个数，并在文本框Textout中输出结果，若n＝20，有2、12和20三个整数包含数字2，则文本框Textout中输出“3”。
实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

    Dim i As Long, n As Long, t As Long

    Dim s As Long    ′s用于统计1到n之间包含数字2的整数个数

    Dim k As Boolean

    s ＝ 0

    n ＝ Val(Textin.Text)

    For i ＝ 1 To n

        k ＝ False

      t ＝ i

      Do While Not k And t > 0



            t ＝ t \ 10

        Loop

        If k Then

    Next i

   Textout.Text ＝ Str(s)

End Sub

查看解析
17、现要求编写VB程序实现如下功能：在文本框Text1中输入正整数n，单击命令按钮Command1后，在文本框Text2中会显示一个有规律的数字串，形式为“1 2 3 … n－1 n n－1…3 2 1”。例如n＝6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1”。按此要求编写的程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()

    Dim n As Integer, i As Integer, s As String

    n ＝ Val(Text1.Text)

    s ＝ “ ”

    For i ＝ 1 To     '(1)

        If i <＝ n Then s ＝ s ＋ Str(i)

        Else

                '(2)

   Next i

   Text2.Text＝ s

End Sub

程序中加框(1)处应改正为；

加框(2)处应改正为。

查看解析
18、编“求最大数最小数”程序，实现如下功能：在文本框Text1中输入一个正整数n，单击“分析”按钮Command1后，程序将生成n个随机整数，显示在列表框List1中；并计算这n个随机整数中的最大数、最小数及它们所在的位置，最后求出这n个数的平均值。程序运行界面如下图所示。

(1)、要使程序运行时，清空文本框Text1中的内容，可在Form_Load事件过程添加语句(单选，填字母：A .Text1.Caption ＝ “ ” / B .Text1.Text＝“ ” / C .Text1.Font＝“ ”)。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

    Dim n As Integer, i As Integer, x As Integer, sum As Integer, avg As Single

    Dim max As Integer, min As Integer, maxi As Integer, mini As Integer

    n ＝ Val(Text1.Text)

    x ＝ Int(Rnd * 100) ＋ 1

    List1.AddItem Str(x)

    max ＝ x : min ＝ x

    maxi ＝ 1: mini ＝ 1



    For i ＝ 2 To n

        x ＝ Int(Rnd * 100) ＋ 1

        List1.AddItem Str(x)

        If x > max Then max ＝ x: maxi ＝ i

        If Then min ＝ x: mini ＝ i

        sum ＝ sum ＋ x

    Next i



    List2.AddItem “最大数为：” ＋ Str(max) ＋ “，所在位置为：” ＋ Str(maxi)

    List2.AddItem “最小数为：” ＋ Str(min) ＋ “，所在位置为：” ＋ Str(mini)

    List2.AddItem “平均值为：” ＋ Str(avg)

End Sub

查看解析
19、下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是，文本框Text2中显示的内容是。
Private Sub Command1_Click()

  Dim a(1 To 3) As Integer, k As Integer, t As Integer, s As Integer

   a(1) ＝ 12: a(2) ＝ 41: a(3) ＝ 2

   s ＝ 0

  For k ＝ 2 To 3

      If a(k) > a(1) Then

            t ＝ a(1): a(1) ＝ a(k): a(k) ＝ t

          s ＝ s ＋ 1

        End If

  Next k

  Text1.Text ＝ Str(a(1))

  Text2.Text ＝ Str(s)

End Sub

查看解析
20、下列VB程序运行时，单击命令按钮Command1后，语句①被执行了次，文本框Text1中显示的内容是。
Private Sub Command1_Click()

Dim a(1 To 5) As Integer.i As Integer

a(1)＝1

a(2)＝1

For i＝3 To 5

a(i)＝2*a(i－1)＋a(i－2) ′语句①

Next i

Text1.Text＝Str(a(5))

End Sub

查看解析

上一页 432 433 434 435 436 下一页跳转

拍照时刻(秒)	0.1	0.2	0.3	0.4	0.5
下落距离测量值(米)	0.049	0.195	0.44	0.785	1.225