当前位置: 高中信息技术 / 综合题
  • 1. (2017·浙江模拟) 【加试题】完善如下功能的Visual Basic程序:在文本框Text1中输入一个偶数,单击“求解”按钮Command1,将这个偶数拆分成二个素数之和。请完成下面两个小题。

    程序代码如下:

    Private Sub Command1_Click()

      Dim n As Integer, i As Integer

      List1.Clear

      n = Val(Text1.Text)

      If n Mod 2 = 0 Then

        For i = 2 To Int(n / 2)

          If isodd(i) = (isodd(n - i)) Then

            List1.AddItem Str(n) + " =" + Str(i) + " +" + Str(n - i)

          End If

        Next i

      Else

        Text1.Text = Str(n) + "不是偶数!"

      End If

    End Sub

    Private Function isodd(n As Integer) as boolean

       Dim f As integer

       f = 0

       For i = 2 To Sqr(n)

         If n Mod i = 0 Then f = 1: Exit For

       Next i

       isodd =  f

    End Function

    1. (1) 结合程序代码,窗体界面中还缺少对象(名为list1的文本框|名为list1的标签框|名为list1的列表框)
    2. (2) 上述代码有下划线的语句有错误,正确的应该是:①


    3. (3) 上述代码有下划线的语句有错误,正确的应该是:② 

微信扫码预览、分享更方便