小张设计了一个&ldquo;加减运算练习&rdquo;VB程序。界面如下图所示。单击&ldquo;出题&rdquo;Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输...

题型：综合题题类：常考题难易度：困难

浙江省慈溪中学2015-2016学年高二上学期期中考试信息技术试题

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer 'n为试题计数器,s为得分

Dim a, b As Integer 'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法

Private Sub Form_Load()

n = 0:

s = 0

End Sub

Private Sub Command1_Click() ‘出题按钮

Randomize

n = n + 1

If n < 11 Then

Label1.Caption = "No：" + Str(n)

a = Int(Rnd * 100) 'a，b为运算数，且要求a不小于b

b = Int(Rnd * 100)

If Then t = a: a = b: b = t '(1)

If Rnd > 0.5 Then c = "+" Else '(2)

Label5.Caption = Str(a) + c + Str(b) + "="

Text1.Text = ""

Else

Command1.Caption = "完成测试"

End If

End Sub

Private Sub Command2_Click() ‘判断按钮

If c = "+" Then

If a + b = Val(Text1.Text) Then s = s + 10

Else

If Then s = s + 10 '(3)

End If

Label3.Caption = "得分:" + Str(s)

End Sub

举一反三

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如第14题图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click（）

Dim a As Single, b As Single, ch As String

a = Val(Text1.Text)

b = Val(Text2.Text)

①

If ch = "+" Then

Text4.Text = Str(a + b)

ElseIf ch = "*" Then

Text4.Text = Str(a * b)

ElseIf ch = "-" Then

Text4.Text = Str(a - b)

ElseIf ch = "/" Then

If ② Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零"

Else

③

End If

End Sub

编写VB程序，实现如下功能：在文本框Text1中输入整数n（1≤n≤10），单击“生成矩阵”按钮Command1，生成n²个10到99之间（包含10和99）的随机整数，并以n行、n列矩阵的形式显示在列表框List1中，再单击“对角线”按钮Command2，则在标签Label1中输出该矩阵对角线（左上角到右下角）上的数值，运行界面如图所示，程序代码如下。

【加试题】在计算机中用一个字节（8位）来存储一个字符的ASCII码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为“0”，在数据传输时该位可用作奇偶校验位。传输时ASCII代码转换成传输码的方法是：若7位ASCII码中有偶数个1，则最高位置为1；有奇数个1，则最高位置为0。例如字母“A”的ASCII码十进制表示为65，二进制表示为1000001。“A”的传输码则为“11000001”，本程序的功能就是把ASCII码转换成这种传输码，运行效果如第17题图所示。

编写VB程序，实现如下功能:在文本框Text1中输入一个正整数，单击“求数根”按钮Command1，在Text2中输出该正整数的树根（数根：若一个正整数X的各位数字之和是一位数，那么这个数就是X的数根，否则再把这个数的各位数字相加，如此反复直到得到一位数为止。例如156的各位数字相加1+5+6=12，12的各位数字相加1+2=3，则156的数根是3）。程序运行界面如图1所示。

图1

图2

利用格里高利公式

求

，直到最后一项的值小于0.0001为止，输出

的值。

Private Sub Command1_Click()

Dim Pi As Single, t As Single

Dim n As Integer, s As Integer

Pi = 0

t = 1: n = 1:s =1

Do While Abs(t) >= 0.0001

Pi = Pi + t

n = {#blank#}1{#/blank#}

s= {#blank#}2{#/blank#}

t = s *1 / n

Loop

Text2.Text ={#blank#}3{#/blank#}

End Sub

设有n盏灯，放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的。（亮灯为0，关闭为1）

为了实现这一目标，完善下列程序，使之能完成该功能。

Private Sub command1_click()

Const n=20

Dim i as integer,j as integer

Dim a(1 to n) as integer

For j=1 to n

a(j)=0

next j

for i=1 to n

for j=1 to n

if j mod i=0 then

{#blank#}1{#/blank#}

End if

Next j

Next i

For j=1 to n

If {#blank#}2{#/blank#} then list1.additem str(j)

Next j

End Sub

相关试卷

公司介绍

服务介绍

帮助中心