在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Val (Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr (i) Then Print i Next iEnd Sub 该事件过程的功能是。A．输出n以内的奇数B．输出n以内的偶数C．输出n以内的素数D．

题目

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Val (Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr (i) Then Print i Next iEnd Sub 该事件过程的功能是。A．输出n以内的奇数B．输出n以内的偶数C．输出n以内的素数D．输出n以内能被j整除的数

相似考题

1.（ 19 ）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A ） 5B ） 4C ） 3D ） 2

2.（27）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim i As Integer, n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（ ）。A）2B）3C）4D）5

3.设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是A．10B．15C．25D．24

4.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dimarrayl(10，10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i，j)=i+j Nextj Nexti Text1.Text=axvayA．15B．14C．13D．12

参考答案和解析
正确答案：C
【解析】为了判断一个数n是不是素数，可以将n被2到根号2之间的所有整数除，如果都除不尽，则n就是素数，否则不是素数。本题是典型的判断素数的程序语句。故选择C项。
更多“在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Pr ”相关问题

  • 第1题：

    在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1)，然后编写如下事件过程：

    Private Sub Command1_Click()

    x＝Val(Text1.Text)

    Select Case x

    Case 1,3

    y＝x*x

    Case IS＞＝10,IS＜＝-10

    y＝x

    Case-10 To 10

    y＝-x

    End Select

    End Sub

    程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。


    正确答案：9
    9 解析：本题考查多分支语句Select Case的知识。 Select Case用于实现多分支结构，其使用格式为： Select Case 测试表达式＞
    [Case表达式列表1＞]
    [语句块1]
    [Case 表达式列表2＞]
    [语句块2]
    [CaseElse]
    [语句块n]
    End Select
    其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行严y＝x*x后退出Case结构，最后y的值为9。

  • 第2题：

    设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。

    A. 30

    B. 25

    C. 20

    D. 15


    正确答案：A
    A)    【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。

  • 第3题：

    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是

    A． Visual

    B．Basic

    C．Program

    D．出错


    正确答案：C
    解析：Text是文本框的默认属性。

  • 第4题：

    在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：

    打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。


    正确答案：12
    12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。

  • 第5题：

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

    程序运行后，单击命令按钮，在文本框中显示的值是

    A．2

    B．3

    C．4

    D．5


    正确答案：B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。

  • 第6题：

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

    程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。


    正确答案：
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为： 其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。

相关内容