- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术解析算法及程序实现同步练习

将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到商的整数部分为零时停止。

程序界面如图所示，在文本框Text1中输入一个正整数，单击“转换”按钮(Command1)后，对应的二进制数在文本框Text2中显示出来。

解决此问题的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

Dim x As Integer,s As String,r As Integer,t As Integer

x=Val(Text1.text)

s=“”

Do While ①

r=x Mod 2

s=Str(r)+s

x=②

Loop

Text2.text=s

End Sub

（1）、解决此问题所用的算法是。(选填:解析算法或枚举算法)

（2）、程序中划线处①应填入。

（3）、程序中划线处②应填入。

举一反三

自定义函数f的功能是计算自然数n的阶乘值，即f=n！。下面VB程序通过调用函数来计算S=1!+2!+3!+4!+5!+6!:

Function f(n as integer) as long

Dim j As Integer

f=1

For j=1 to n

f=f*j

Next j

End Function

Private Sub Command1_Click()

Dim s As Long, AS Integer

S=0

For i=1 to 6

Next i

Text1.text=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

【根据宁波效实中学2012学年第一学期高一信息技术期末试卷改编】将一个十进制正整数x转换成十六进制数的方法和转换成二进制类似，反复除16取余法，它的算法如下

第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；

第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边;

第三步：求出x被除16的商x1;

第四步：对x1重复（1）、（2）、（3）过程，直至商为0；

第五步：最后的S即为所求的十六进制数；

下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数制，单击“十进制转十六进制按钮”（Command1）后，在文本框Text2中输出转换的结果。相应的Visual Basic程序如下：

Private Sub Command1_Click()

Dim s As String, r As Integer

dec = val(Text1.Text) ’dec得到一个十进制整数，例如：255；

base = 16 ’base表示16

s = "" ’s变量存放要转换到的十六进制整数；

Do While dec <> 0

r = ①

If r >= 10 Then ’如果base>10进制，r可能>10；

s = Chr(65 + (r - 10)) + s ’Chr (65)="A", 16进制数A对应10；

          Else                            ’Chr(66)="B", 16进制数B对应11；
             s = Str(r) + s      ‘余数r<10时，十进制数和十六进制基数相同；
          End If ‘Chr (65 +( r - 10))或str(r)在s左边，实现了反次序输出；
          dec =     ②
    Loop
   Text2.Text = s
End Sub

编写VB程序，实现如下功能：在文本框Text1中输入十进制整数，文本框Text2中输入待转换进制（范围2~16），单击“转换”按钮Command1，在列表框List1中输出该整数对应的进制结果，运行效果如图1所示。


图1	图2

【加试题】小明编写了一个统计字符串中数字字符串之和的VB程序（如字符串“ab12.3cd34ef9”,中数字字符串之和为58：12+3+34+9），运行界面如图所示。在文本框Text1中输入字符串s，单击“统计”按钮Command1，在Label3中输出统计结果。

实现上述功能的VB程序代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim s As String, ch As String

Dim ch2 As String, sum As Double

Dim n As Integer, i As Integer

s = Text1.Text

n = Len(s)

i = 1: sum = 0

Do While ＇①

ch = Mid(s, i, 1)

If ch >= "0" And ch <= "9" Then

j = i

ch2 = Mid(s, j, 1)

Do While ch2 >= "0" And ch2 <= "9"

j = j + 1

ch2 = Mid(s, j, 1)

Loop

sum = sum + Val（）＇②

i = j

End If

i = i + 1

Loop

Label3.Caption = Str(sum)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

【加试题】小柯编写了一个多位数乘法的VB程序，运行界面如图所示。在文本框Text1中输入一个小于等于1000位的被乘数，在文本框Text2中输入1位乘数，点击“开始计算”按钮Command1后，在文本框Text3中显示计算结果。

实现上述功能的VB程序如下，但加框代码有错，请改正。

Private Sub Command1_Click()

Dim d(1 To 1001) As Integer

Dim str1 As String, str2 As String

Dim i As Integer, n As Integer, k As Integer, s As Integer

str1 = Text1.Text

n = Len(str1)

For i = 1 To n

D(i) = Val(Mid(str1, i, 1))

Next i

s = 0

k = Val(Text2.Text)

For i = n To 1 Step -1

①

s = d(i) \ 10

D(i) = d(i) Mod 10

Next i

If s <> 0 Then str2 = CStr(s) Else str2 = "" 'CStr()不会在返回的字串前加1个空格。

For i = 1 To n

②

Next i

Text3.Text = str2

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

相关试卷

公司介绍

服务介绍

帮助中心