高校等考试题天天练二级VB]11月3日
|
知识点：程序问答（三） 程序 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：程序实现什么功能？ 相关资料 |
