填空题

下列语句的输出结果是　【6】　。
　　Print Format$(6658.6，"000,000.00．")

答案：【6】006，658．60

你可能感兴趣的试题

单元测试又称模块测试，一般采用　【3】　测试。

答案：【3】白盒法

数据库恢复是将数据库从　【4】　状态恢复到某一已知的正确状态。

答案：【4】错误

软件工程的出现是由于　【2】　。

答案：【2】软件危机的出现

当线性表采用顺序存储结构实现存储时，其主要特点是山　【1】　。

答案：【1】逻辑结构中相邻的结点在存储结构中仍相邻

数据的基本单位是　【5】　。

答案：【5】数据元素

如果在D盘当前文件夹下已2经存在名为PIC．day的顺序文件，那么执行语句Open "D:\PIC．dat" For Append As #1 之后将　【7】　。

答案：【7】在文件尾添加新内容

下列语句的输出结果是　【6】　。
　　Print Format$(6658.6，"000,000.00．")

答案：【6】006，658．60

在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。
　　Private Sub Command1_Click( )
　　　num=Val(Text1．Text)
　　　If　【8】　Then
　　　　Print num
　　Else
　　　　Text1．Text=" "
　　　　　【9】　
　　　End If
　　End Sub

答案：【8】num Mod6=2 And num Mod 5=3
【9】Text1．SetFocus

下面是程序是计算给定函数的值，自变量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=") )
　　Private Sub Command2_Click( )
　　　　If　【13】　Then
　　　　　　z=x ^ 2 + y ^ 2
　　　　ElseIf　【14】　Then
　　　　　　z=x ^ 2-2 * y^2
　　　　　　　【15】　
　　　　　　z=y ^ 2 - 3 * x ^ 2
　　　　End If
　　　　Form1．Print "当x，y 的值为："； x，y
　　　　Form1．Print "f(x，y) 的值为:"： z
　　End sub

答案：【13】x＞0 And y＞0
【14】x＜0 And y＞0
【15】Else

下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。
　　Sub TOF( )
　　Randomize
　　Dim s As Double
　　Dim a(10) As lnteger
　　For i=0 To 9
　　　　　　【10】　
　　Next
　　For i=0 To 9
　　　　If　【11】　Then
　　　　　Print a(i)
　　　　　s=s+a(i)
　　　　　【12】　
　　Next i
　　Print
　　Print "S=" ; s
　　End Sub

答案：【10】a(i)=Int(Rnd * 200+100)
【11】a(i) Mod 7=0
【12】End If