当前位置: 高中信息技术 / 综合题
  • 1. (2019高二上·浙江月考) 素数只能被1和它本身整除,不能被其他自然数整除。编写VB程序实现如下功能:单击“产生奇数并判断”按钮Command1,随机产生一个三位正奇数显示在文本框Text1中,并在文本框Text2中显示其是否为素数的判断结果。例如,当随机产生的三位正奇数为953时,程序运行界面如图a所示。

    1. (1) 在设计程序界面时,应使用图b所示“控件工具箱”中的 (填写相应编号)添加文本框Text1。
    2. (2) 实现上述功能的VB程序如下,请在划线处填写合适的代码。

        Private Sub Command1_Click()

          Dim n As Integer, i As Integer

          Dim flag As Boolean ‘用于标记是否为素数

          Randomize

          n = Int(  ①  )*2+1

          Text1.Text = Str(n)

          flag = True ‘标记为素数

          i = 3

          Do While i <= n - 1 And flag = True

            If  n Mod i = 0  Then

               flag = False

            End If

            i = i + 2

          Loop

      If   ②   Then

            Text2.Text = Str(n) + “是素数”

      Else

            Text2.Text = Str(n) + “不是素数”

          End If

        End Sub

       ②

    3. (3) 以下选项中,与加框处表达式“n Mod i = 0”等价的是       (单选,填字母)。
      A . n \ i = Int(n / i) B . n \ i = n/ i C . n Mod i = n \ i

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