VB填空题.doc

VB填空题1、数学表达式转换为VB表达式为“sqr （a*b）/ (6* a*a + abs (a-b)” 2、写出判断整数a是否能被3整除且为奇数的VB表达式 A mod 3 = 0 anda 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 1007、将十进制数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 For i =1 to Min = D( i ) : m = i For j = i + 1 To n If D( j ) 10 If t mod 3 = 0 then s=s+tEnd ift=t+2LoopPrint s, tEnd sub10、下面是一段Visual basic程序Private sub command1-clickDim s ,i as integeri=1Do until i 11i=i+2s = 3*i+6LoopPrint sEnd 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 = nEnd 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 SingleDim c As Single a = Val (Text1.text) b = Val (Text2.text) c= Val (Text3.text) m =(a + b)*(a b)/(2*a*c) Text4.text = mEnd SubText4输出结果为： 0.6 13、 本程序的功能是计算2*4*6*8*20 ，请填空Private Sub Command1_Click( ) Dim s As DoubleDim i As DoubleDim c As Single s = 1 For i = To 20 Step s = s*i Print “2*4*6*8*20=” & sEnd Sub系统答案：2 ，2 ，Next i14、Private Sub form_load()n = inputbox(“请输入m的值：”,”输入”) s= 0For 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) If Then y = x*x+2*x+1 End If x = 0 Then y = 0 Else If x 0 ，Abs(x) ，Text2.text=y16、下图是关于计算变量S的算法流程图，请问变量S在每一次循环以后的值分别是： （1） 1 （2） 2 （3） 6 （4） 24 （5） 120 17、下面左图是判断输入的整数S能否被5整除的算法流程图，变量I用来判断是否可以整除，情将其补充完整。（第2空和第3空填“Y”或“N”）系统答案:S MOD 5，Y，N18、上面右图是计算“0到100之间偶数之和”的算法流程图，S