高校等考试题天天练二级VB]11月3日
分类: 计算机
时间: 2023-02-23 06:23:26
作者: 全国等级考试资料网
知识点：程序问答（三）
程序
Private Sub Command1_Click()
Dim x As Integer, f As Boolean
x = Val(InputBox("请输入任意整数"))
k = 2
f = True
Do
If x Mod k = 0 Then f = False
k = k + 1
Loop Until k > x - 1 Or Not f
If f Then Print "ok" Else Print "no"
End Sub
问题1：程序运行时，x输入13，结果是什么？
问题2：程序实现什么功能？
程序
Private Sub Command1_Click()
Dim x As Integer, f As Boolean
x = Val(InputBox("请输入任意整数"))
k = 2
f = True
Do
If x Mod k = 0 Then f = False
k = k + 1
Loop Until k > x - 1 Or Not f
If f Then Print "ok" Else Print "no"
End Sub
问题1：程序运行时，x输入13，结果是什么？
问题2：程序实现什么功能？