下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，果能则输出该数及平方值。请填空。 Private Sub Command1_Click（) Dim numX As Integer numX = Val （InputBox（"请输入一个整数")) If 【9】 Then Form1．Print 【10】 End If End Sub

下面是程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下： 程序不完整，请填空，将程序的补充完整 Option Explicit Dim x As Single Dim y As Single Dim z As Single Private Sub Command1_Click（) x=Val（InputBox（"x=") ) y=Val（InputBox（"y=") 编写程序，其中自定义一函数，用来判断一个整数是否为素数，主函数输入一个数，输出是否为素数 中国大学MOOC: 在VBA代码中，可以用InputBox函数产生“输入对话框”。若执行下列语句：s=InputBox(“请输入,一个,数字)则s变量的内容为( )。 下面程序运行时，若输入395，则输出结果是（）。（“请输入一个3位整数”） 当用户输入一个整数“6”的时候，input()函数返回的也是整数“6” 阅读下面的程序： n1=InputBox(“请输入第一个数：”) n2=InputBox(“请输入第二个数：”) Print n1+n2 当输入的数分别为111和222时，程序输出______。 除了用TextBox控件 进行数据输入外，还可以用InputBox函数输入（ ）。 编写一个函数，该函数的功能是判断一个整数是不是素数，在main函数中输入一个整数，调用该函数，判断该数是不是素数，若是则输出“yes”，否则输出“no” 在E盘当前目录文件夹下建立一个名为“Student．txt’’’的顺序文件，要求用InputBox函数输入5个学生的姓名（StuName)、年级（StuGrade)和年龄（StuAge)。 Private Sub Form _ Click（) 【 】 For i=1 To 5 StuName=InputBox（"请输入姓名") StuGrade=InputBox（"请输入年级号") StuAge 下面程序运行时，若输入395，则输出结果是　　Private Sub Comand1_Click()　　Dim x%　　x=InputBox("请输入一个3位整数")　　Print x Mod 10,x100,(x Mod 100)10　　End Sub 写一个函数判断一个正整数是否为奇数，在主函数中用scanf输入正整数m，调用函数后，根据函数返回值判断这个正整数是否为奇数，若是则输出“yes”，否则输出“no” 设有如下程序：Private Sub Command1_Click()Dim c As Integer, d As Integer c = 4 d = InputBox("请输入一个整数")Do While d > 0If d > c Then c = c + 1 End If d = InputBox("请输入一个整数")Loop Print c + dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。 编写一个程序，输入三个整数，按由小到大的顺序输出。（用指针方法处理） 有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1显示的是____。 Private Sub Command1_Click（）Dim min%, k%, a% For k = 1 To 4 a = Val（InputBox（“输入一个整数”）） If a < min Then min = a End If Next Label 从键盘输入一个正整数，将该数的各位分离出来。 请在___处填入适当的内容，完善程序。 Dim s, s1 As Integer s = Val（InputBox（“输入一个正整数：”）） Do While s > 0 s1 =____ s = s 10 MsgBox（s1） Loop（） 函数和子程序必须至少一个输入参数。() 下列程序是判断一个整数（>=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox（"请输入一个整数（>=3)") k=Int（Sqr（n)) i=2 swit=0 While i 【7】 Else 【8】 End If Wend If swit=0 Then Print n；"是一个素数。" Else Print n；"不是一个素数。" End If 编写程序，输入一个整数，打印出它是奇数还是偶数。 执行语句 V % =Val ( InputBox(“请输入一个正整数” ) ) 时 ， 用户在输入对话框中未输入任何数据 ， 按确定键后 V的值会等于 ________。 窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer,m As Integer Private Sub Command1_Click()m=InputBox("请输入—个正整数")ReDim a(m) End Sub Private Sub Command2_Click()m=InputBox("请输入—个正整数")ReDim a(m) End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是______。