VB填空题

VB填空题

1、数学表达式

a*b转换为VB表达式为“sqr （a*b）/ (6* a*a + abs (a-b))” 26a?a?b2、写出判断整数a是否能被3整除且为奇数的VB表达式 A mod 3 = 0 and a mod 2 = 1

3、VB标准函数Rnd（x）的作用是返回一个大于等于0且小于1的随机实数，那么产生大于等于10且小于50的随机整数的VB表达式是“ Int （Rnd*40+ 10 ）”

4、有一组数列：19、25、11、6、65、45，如果按照选择排序法将其按从小到大的顺序排列，第二次交换后得到的数列应为 6 、 11 、 25 、 19 、 65 、 45 。

5、现有一个VB表达式为“A=(11+3) Mod 6 / 2 - 1”，在这个表达式里运算符优先级最高的是 （） ；其次 / ；运行结果A的值是 1 。

6、将条件“a大于等于10且小于100”转换为相应的VB表达式为：a >= 10 and a < 100

7、将十进制数21和32分别转化为二进制数是10101 和100000。

8、请补充完成程序，使程序实现功能：将输入的数据使用选择排序算法排序后输出。

Private Sub Form_Click( ) Dim D(100) As Single

n=Val(inputbox(“请输入数据的总数量”)) For i =1 To n

D( i ) = Val(inputbox(“请输入第“& i & “个数据”)) Next i

1 For i =1 to ○ Min = D( i ) : m = i For j = i + 1 To n

If D( j ) < Min Then Min = D( j ) : m = j Next j

2 : D( m ) = k k = D( i ) : ○

Next i

For i = 1 To n Print D( i ) Next i End Sub

系统答案：n-1，D（i）=Min

9、下面程序代码结构包含了循环结构和 选择 结构，程序最终结果s等于 6 ，t等于 12

Private sub command1_click() Dim t,s As Integer

1

t=0 s=0

Do until t >10

If t mod 3 = 0 then s=s+t

End if t=t+2 Loop Print s, t End sub

10、下面是一段Visual basic程序 Private sub command1-click Dim s ,i as integer i=1

Do until i >11 i=i+2 s = 3*i+6 Loop Print s End sub

该程序运行后,语句”s= 3*i+6”共执行了 6 次,运行的结果是 45 ，该程序结构是 循环 结构

11、有如下VB程序段

Private Sub Command1_Click( )

Dim m As Integer , n As Integer , a As Integer m = Val (Text1.text) n = Val (Text2.text) a = m m = n n = a

Text3.text = m Text4.text = n End Sub

运行后在文本框Text1、Text2中分别输入21、78，则Text3输出结果为： 78 ，Text4输出结果为： 21

12、如下所示的VB程序，运行时在Text1、Text2、Text3中分别输入10、8、3三个数，请问Text4输出结果为多少？ Private Sub Command1_Click( ) Dim a As Single Dim b As Single Dim c As Single

2

a = Val (Text1.text) b = Val (Text2.text) c= Val (Text3.text)

m =(a + b)*(a – b)/(2*a*c) Text4.text = m End Sub

Text4输出结果为： 0.6

13、本程序的功能是计算2*4*6*8……*20 ，请填空 Private Sub Command1_Click( ) Dim s As Double Dim i As Double Dim c As Single s = 1

1 To 20 Step ○2 For i = ○

s = s*i

3 ○

Print “2*4*6*8……*20=” & s End Sub

系统答案：2 ，2 ，Next i

14、Private Sub form_load()

n = inputbox(“请输入m的值：”,”输入”) s= 0

For I = 1 to n s = s + I Next i

Msgbox “s =” + str(s),0,”计算结果” End sub

当 m = 6是结果是21___

15、在窗体上有一个命令按钮（Command1）和两个文本框（Text1和Text2），然后编写了

如下事件过程，要求：在文本框Text1中输入一个数值x，根据下面的分段函数计算y的结果，并将y值显示在文本框Text2中。

请将实现以上功能的程序补充完整： Private Sub Command1_Click( ) x= Val (Text1.text)

1 Then If ○ y = x*x+2*x+1 End If x = 0 Then y = 0

3

Else If x < 0 Then

2 y = ○ End If

3 ○

End Sub

系统答案：x>0 ，Abs(x) ，Text2.text=y

16、下图是关于计算变量S的算法流程图，请问变量S在每一次循环以后的值分别是： （1） 1 （2） 2 （3） 6 （4） 24 （5） 120

17、下面左图是判断输入的整数S能否被5整除的算法流程图，变量I用来判断是否可以整除，情将其补充完整。（第2空和第3空填“Y”或“N”）

4

系统答案:S MOD 5，Y，N

18、上面右图是计算“0到100之间偶数之和”的算法流程图，SUM用于累加求和，请将其补充完整：

系统答案：SUM=SUM+i，i=i+2

19、下面左图是“求三个数中最大的数”的流程 ，请补充完整。 请填入表达式：Max=a , c>Max (或Max

20、依照某高校规定，总成绩在80分(包含80分)以上的属于优秀学生，60分(包含60分)

至80分的属于良好学生，低于60分的属于一般学生，请根据以上描述把流程补充完整。 系统答案：S>=80 (或80<=S) S>=60 (或60<=S)

5