解析 分析可知，①处代码是完全平方数的情况，因此应填入judge＝True；根据题意，如果输入的整数不是完全平方数，则在标签对象Label1中显示“No”，因此②处代码为Label1.Caption＝“No”。 答案 ①judge＝True ②Label1.Caption＝“No”
6.以下是求阶乘和1！＋2！＋……＋10！的程序，单击按钮(Command1)后，结果输出显示在窗体上，使用Function函数计算某个数的阶乘，请将画线处的代码补充完整。
Private Sub Command1_Click() For i＝1 To 10
Sum＝________①________ Next i Print Sum End Sub
Function jiecheng(num) jiecheng＝1 For i＝1 To num ________②________ Next i End Function
答案 ①Sum＋jiecheng(i) ②jiecheng＝jiecheng*i
7.下列VB程序用于求2个正整数(均小于10000)的最大公约数： Private Sub Command1_Click() Dim x As Integer Dim y As Integer Dim z As Integer x＝Val(Text1.Text) y＝Val(Text2.Text) __z__＝gcd(a，b) ①
Text3.Text＝Str(z) End Sub
Function gcd(a As Integer, b As Integer) As Integer Do While a>b ②
If a>b Then a＝a－b Else b＝b－a Loop gcd＝b End Function
其中，画线①，②部分有错，应改为________，________。
解析 ①处需要调用gcd函数，传入x，y的值，得到他们的最大公约数，返回给变量z。②处循环终止条件应该是a等于b，要使循环运行，只需要a不等于b，而不是a>b。
答案 ①z＝gcd(x，y) ②a<>b 8.在VB中，有如下程序：
Function max(x As Integer，y As Integer) As Integer If x＞y Then max＝x Else max＝y End Function
Private Sub Command1_Click( )
Dim a As Integer，b As Integer，c As Integer Dim d As Integer，z As Integer a＝Val(Text1.Text) b＝Val(Text2.Text) c＝Val(Text3.Text) d＝max(a，b) z＝max(d，c) Text4.Text＝Str(d) Text5.Text＝Str(z) End Sub
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、－5、6后，单击命令按钮Command1，文本框Text4中显示的是①________，文本框Text5中显示的是②________。
解析 由程序运行可知，Text4显示2，Text5显示6。 答案 ①2 ②6
1.下列问题不能用算法描述的是( )
A.已知a、b、c的值，求一元二次方程ax2＋bx＋c＝0(a≠0)的实数根 B.计算某个班级学生身高的平均值 C.列出方程y＝2x＋1的所有实数解 D.根据三角形三边长度求三角形面积
解析 选项C中，所有的实数解个数有无数个，所以它违背了算法的有穷性特征，因此不能用算法描述。 答案 C
2.在VB数组说明语句Dim d(3 To 8，4 To 9)As Boolean中，数组d的变量类型是( ) A.长整数型 C.单精度实数型
解析 “Boolean”表示逻辑型数组。 答案 D
3.某宾馆的房间号由5位字符组成(例如A0823表示A幢8层33号房间)，末位数字为奇数时表示房间朝南、为偶数时表示房间朝北。字符串变量s中存储了1个房间号，下列能正确判断房间朝南的VB表达式是( ) A.Val(Mid(s，5，1))Mod 2＝1 B.Val(Mid(s，5，1))Mod 2＝0 C.Val(Mid(s，5，1))\\2＝1 D.Val(Mid(s，5，1))\\2＝0
解析 要判断房间朝南，则先取出房间号中的第5位数字，然后将其转换为数值
B.字符串型 D.逻辑型
后除以2，若余数为1，则表示是奇数。 答案 A
4.下列VB表达式的值等于3的是( ) A.Sqr(2)＋1 C.Asc(“1”)＋2
B.Abs(－1)－2 D.Len(“－2”)＋1
解析 Sqr(x)功能是求x的算术平方根，Abs(x)功能是求绝对值，Asc(x)功能是将字符转换为ASCII，Len(x)功能是计算字符串的长度，字符串“－2”有两个字符，因此Len(“－2”)＝2。 答案 D
5.下列VB函数返回值为数值的是( ) A.Chr(x) C.Val(x)
B.Str(x) D.Mid(x，n，k)
解析 Chr(x)功能是将ASCII转换为字符。Str(x)的功能是将数值转换为字符串。Val(x)的功能是数字字符转换为数值。Mid(x，n，k)的功能是取字符串x中第n个字符起长度为k的子串。 答案 C
6.下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。 Private Sub Command1_Click( ) Dim i As Integer，p As Integer p＝0
For i＝100 To 999 If __①__ Then List1.AddItem Str(i) ②__ End If Next i
相关推荐：
loading