itgle.com

下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Command 1_Click()Dim x as intege,y as integerFor x=-34 To 34For y=-34 To 34If______ThenDebug．print x，YEnd IfNext yNext xEnd Sub

题目

下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。

Private Sub Command 1_Click()

Dim x as intege,y as integer

For x=-34 To 34

For y=-34 To 34

If______Then

Debug．print x，Y

End If

Next y

Next x

End Sub

相似考题

1.（ 11 ）下列程序的功能是找出被 5 、 7 除，余数为 1 的最小的 5 个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Form_Click()Dim Ncount %, n%n = n + 1If 【 11 】 ThenDebug.Print nNcount =Ncount + 1End IfLoop Until Ncont = 5End Sub

2.下列程序的功能是求算式：1+1／2!+1／3!+1／4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Commandl_Click ( )Dim i as integer,s as single，a as singlea=1：s=0For i=1 To 10a=_____s=s+aNext iDebug．Print“1+1／2!+1／3!+……=”；SEnd Sub

3.下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+iEnd IfNext iMsgBox sumEnd Sub

4.(12 ）以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%, j%, k%, t % ‘ t 为统计素数的个数D im b As BooleanFor i = 100 To 200b = Truek = 2j = Int(Sqr(i))Do While k <= j And bIf I Mod k = 0 Thenb = 【 12 】End Ifk = 【 13 】LoopIf b = True Thent = t + 1Debug.Print iEnd IfNext iDebug.Print " t= " ; tEnd Sub

参考答案和解析
正确答案：(x*x+y*y)=1000
(x*x+y*y)=1000 解析：此处即为判断条件，此题中要求找到满足方程x2+y2=1000的x、y值，此处即应为x2+y2=1000的程序写法。
更多“下列程序的功能是求方程:x2＋y2=1000的所有整数解。请在空白处填入适当的语句,使程序完成指定的功 ”相关问题

  • 第1题：

    下列程序的功能是：输入10个整数，逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。

    Private Sub Command2_Click()

    Dim i, j, k,temp, arr(11) As lnteger

    Dim result As String

    For k=1 To 10

    arr(k) =Val (InputBox( "请输入第" & k & "个数："，"数据输入窗口"))

    Next k

    i=1

    j = 10

    Do

    temp=arr(i)

    arr(i)=arr(j)

    arr(j)=temp

    i=i+1

    j=【12】

    Loop While【13】

    result =""

    For k=1 To 10

    result=result & arr(k) & Chr(13)

    NeXt k

    MsgBox result

    End Sub


    正确答案：

    【12】
    【答案】：j-1
    【知识点】：VBA程序中循环结构的循环变量的设计
    【解析】：此程序的功能是实现10个整数的逆序，变量i从第1个数向后移动需要不断加1，变量j从第10个数向前移动需要不断减1，故此空应填j-1。

    【13】
    【答案】：i>j
    【知识点】：VBA程序中的循环结构
    【解析】：此程序是用循环结构实现的，循环结束的条件是变量i和j从两边移到中间两个变量进行数据交换后，下次不再进行数据交换，此时变量i的值大于j的值，故此空应填i>j。

  • 第2题：

    试题11

    下列程序的功能是求算式：1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。

    Private Sub Command0_Click()

    Dim i As Single ， s As Single，f As Single

    s=0 ：f=1

    For i= 1 To 30

    s=s+f / i

    f=___【11】__

    Next i

    Debug.Print “1-1/2+1/3-1/4+……=”；s

    End Sub


    正确答案：
    试题11分析
    题目是求1-1/2+1/3-1/4+……前30项之和，奇数项的符号位正，偶数项为负，可以用f= - f来达到目的。
    试题11答案
      -f

  • 第3题：

    下列程序的功能是求算式：1-1/2+1/3-1/4+....前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Command1_Click（) Dim i as Integer, s As Single, f As Integer s = 0 : f = 1 For i = 1 To 30 s = s + f/i f =（） Next i Debug.Print “1-1/2+1/3-1/4+…=”; s End Sub


    根据题意， s=s+ 1 n n=n+2 ∴数列为 { 1 2n } 又∵K≤10 ∴计算的是求数列 { 1 2n } 的前10项和（n∈N * ） 故答案为：B

  • 第4题：

    试题10

    下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成指定的功能。

    Dim s As Single ， m As Single

    s=0

    m=1

    do while ____【10】___

    s=s+m

    m=m+1

    Loop


    正确答案：
    试题10分析
    题目的要求是求1到100的累加，s用来存累加和，m是累加项，条件是不超过100。
    试题10答案
      m<=100

  • 第5题：

    程序填空题，请在横向上添上合适的语句，使程序能够完成指定的功能


    第一空： check1(0).value=1 第二空： index 第三空： Text1.Forecolor=vbRed

相关内容