试题

试题 试卷

logo

题型:填空题 题类:常考题 难易度:困难

浙江省宁波市十校2019届高三上学期9月联考试卷

在VB的算术运算中,最大的实数类型double有效位数也只有15位。为了实现除法运算保留任意位数,小明根据除法原理,编写了如下程序,功能如下:在文本框Text1中输入被除数(正整数),在文本框Text2中输入除数(正整数),在文本框Text3中输入小数位数,单击按钮Command1,在标签 Label 中显示除法运算的商。程序运行界面如图所示,但加框处代码有错,请改正:

Private Sub Command1_Click

Dim x, y As Integer

Dim n As Integer

Dim s As String

x = Val(Text1.Text): y = Val(Text2.Text)

n = Val(Text3.Text)

s = s + Str(x \ y)

s = s + "."

k = x Mod y

For i = 1 To n

    ‘①

    ‘②

k = x Mod y

Next i

Label1.Caption = "商为: " + s

End Sub

 ② 

举一反三
条形码是按照一定编码规则排列的图形标识符。如图所示,条形码下方数字左边12位代表信息,最右边一位是校验码。校验码产生方法如下:

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”;

②从序号2开始把所有偶数序号位上的数相加求和,并乘以3;

③从序号3开始把所有奇数序号上的数相加求和;

④把第②和第③步结果相加求和;

⑤10减去第④步结果的个位数,得出校验码(如果差值为10,则校验码为0);

如条形码的数字为:977167121601X(X为校验码),则校验码主要产生步骤如下:

1)   (1+6+2+7+1+7)×3=72

2)   0+1+1+6+7+9=24

3)   72+24=96

4)   10-6=4

所以最后校验码X=4,此条形码数字为9771671216014。

小何为此编写了VB程序,用以验证条形码输入正确与否。程序运行时,从文本框Text1获取条形码数字部分,单击按钮Command1后,在标签Label1中输出结果。实现上述功能的VB代码如下,请补全代码。

Private Sub Command1_Click()

Dim i As Integer, b As String, Lb As Integer

Dim s1 As Integer, s2 As Integer, tmp As Integer

Dim c As String

Dim d(1 To 13) As Integer     '存储数据

Dim res As String             '存储结果

  b = Text1.Text              '输入条形码

  Lb = Len(b)

  s1 = 0 : s2 = 0

  flag = True

  res = "输入错误!"

  listt1.Clear

  If  Lb = 13 Then

    For i = 1 To 13

      c = Mid(b, Lb - i + 1, 1)

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

      {#blank#}1{#/blank#}          '输入转换

      Else

        flag = False : Exit For

      End If

    Next i

    If flag Then

      For i = 2 To Lb Step 2

        s1 =  s1 + d(i)                 '参数计算1

        s2 =  {#blank#}2{#/blank#}       '参数计算2    

Next i

tmp = s1 * 3 + s2

If  {#blank#}3{#/blank#} Then res = "输入正确!" 

    End If

  End If

  Label1.Caption = res

End Sub

返回首页

试题篮