【简答题】下面程序的功能判断InputBox对话框中输入数据是否为素数,并将结论在窗体上打印出来。请完善下面程序。 Option Explicit Private Sub Form_Click( ) Dim p As Integer,x As Long,flag As Boolean flag=False x=InputBox("请输入一个") If_____Then Print Str(x)+"是素...
【单选题】下面代码的功能是:假设有一筐桔子,若分成每堆6只,最后剩5只;每堆7只,则刚好一只不剩,输出桔子至少有多少只?划线处应选择__________。Dim find As Boolean, x%x = 1 'x代表桔子的数量find = False 'find用来判断是否已求出桔子的数量,其值为False表示尚未求出,为True则表示已求出Do While ______________ If x Mo...
【单选题】Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即:1,1,2,3,5,8,13,21,34,55,89,...。某人编写了下面的函数,判断大于1的整数x是否是Fibonacci数列中的某个数,若是,则返回True,否则返回False。 Function Isfab(x As Integer)As Boolean Dim a As Integer,b As I...