Visual Basic题库（有答案）(8)

第49题 设置一个单选按钮所代表选项的选中状态，应当在属性窗口中改变________属性。 答1:value 第50题 用VB表达式来表示“x是小于105的非负数”为 _________。 答1:x>=0 and 第51题 逻辑表达式not \结果是________。 答1:true 第52题 反复执行的程序段称为（ ）；进入循环体的条件称为（ ）；中止循环体执 行的条件称为（ ）。 答1:答2:答3:循环体 循环条件结束循环条第53题 当x的输入值为50，19，0，21和-1时，下列事件过程的执行结果是什么？（20分） Private Sub Command1_Click() Dim x%, s% s = 0 x = InputBox(\While x >= 0 s = s + x x = InputBox(\Wend Print \s End Sub 答1:s=90 第54题 设t=1×2×3×?×n，下列事件过程的功能是求t不大于1000时最大的n值，在横线上填 上适当内容。 Private Sub Command1_Click() Dim t%, n% t = 1: n = 1 Do While (1) n = n + 1 (2) Loop Print \Sub 答1:答2:t<=1000 t=t*n第55题 下面事件过程的功能是：输出100以内个位数为8且能被３整除的所有数，在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, a% For i = 0 To (1) a = i * 10 + 8 If (2) Then GoTo l (3) l: Next i End Sub 答1:答2:答3:9 a Mod 3<>Print a第56题 下面事件过程的功能是求Ｓ＝１＋（１*２）＋（１*２*３）＋?＋（１*２*?*n）的值，在横线上填上适当内容。 Private Sub Command1_Click() Dim n%, i%, j&, s& n = InputBox(\(1) (2) Next i Print \答1:答2:j*i s=s+j第57题 下面事件过程的功能是打印图案 * *** ***** ******* ********* 在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, j% For i = 1 To 5 Print Spc( (1) ); For j = 1 To (2) Print \End Sub 答1:答2:答3:5-i 2*i-1Print第58题 下面事件过程的功能是求２～100以内的素数，在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, j%, m% m = 0 For i = 2 To 100 j = 2 Do While (1) If i Mod j = 0 Then (2) j = j + 1 Loop If (3) Then Print i,: m = m + 1 If m Mod 5 = 0 Then Print Next i End Sub

答1:答2:答3:j<=sqr(i) Exit Doj>sqr(i)第59题 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n = 5 f = 1 s = 1 For i = 1 To n t = (1) : s = s + t: f=(2) Next Print s End Sub 该事件过程的功能是计算1/1-1/2+1/3-1/4+1/5的值。请填空。 答1:答2:f/I f*(-1)第60题 下列循环结构控制的循环次数是：( )。 i=1 do i=i+1 loop until i=10 答1:10 第61题 菜单分为_________菜单和_________菜单，菜单总与____________相关连，设计菜单需要在____________中设计。 答1:答2:答3:答4:下拉式 弹出式窗体菜单编辑器第62题 阅读下列程序段： Private Sub Form Click() Dim amr(10)As Integer For i=6 To 10 arr(i)=InputSox(\请顺序输入1，2，3，4，5\i Print arr(6)+arr(arr(7))/arr(8) End Sub 程序运行后，单击窗体，在输入对话框中顺序输入1、2、3、4、5，输出结果为___________。 答1:1 第63题 下列过程的运行结果是________ 。 Private Sub Form_Click() Dim X(4) As Integer For I = 1 To 4 X(I) = I * I Next Print X(I) End Sub 答1:编译错误， 第64题 在窗体添加一个命令按钮，然后编写如下事件过程，该过程的功能是用冒泡法将10个数排成升序，请在 处将程序补充完整。 Private Sub Command1_Click() Dim a(10) For i=1 To 10 a(i)=val(InputBox(\请输入数组元素值\数据输入\

j=_______________ If a(j)>a(j+1) Then b=a(j) : a(j)=a(j+1): a(j+1)=b End If Next j Next i For K=1 to 10 Print a(k); Next k End Sub 答1:1 To 9 ; 第65题 设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1～5，第二维下标从-2～6，则相应的数组声明为 _______________。 答1:Dim A(1 T 第66题 Visual Basic的数组下标默认为________，可通过________________ 语句使数组下标从1开始。 答1:0； optin 第67题 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Form_Click() Dim a(0 To 10) Dim p(1 To 3) K=0 For I=1 To 4 a(i)=I For j=1 To 3 P(j)=a(j*j) Next j For j=1 To 3 K=K+p(j)*2 Next j Print k Next i End Sub 程序运行后，单击命令按钮，输出结果是______________。 答1:2 4 6 16 第68题 下列程序的输出结果为________。 Private Sub Command1_Click() Dim a(1 To 20) Dim i For i=1 To 20 a(i)=i Next i For Each i In a() a(i)=20 Next i Print a(2) End Sub 答1:20 第69题 下面事件过程的功能是：用随机函数产生10个10到100之间的随机整数存放到一维数组a中，并求a中的最小值及最小值在数组a中的位置，在横线上填上适当内容。 Private Sub Command1_Click() Dim a(10) As Integer, i%, max%, index% Randomize For i = 1 To 10 a(i) = Int(91 * Rnd + 10) Print a(i); Next i Print max = a(1): index = 1 For i = 2 To 10 If ________ Then max = a(i): _________ Next i Print \数组a中的最小值为：\最小值所在位置为：\答1:a(i) < ma 第70题 数组元素个数可以改变的数组称为_________；数组元素可以存放不同类型数据的数组称为__________. 答1:可调数组; 第71题 若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为__________________。 答1:Dim s(1 T 第72题 若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为____________。 答1:Dim a(0 T 第73题 控件数组是由一组类型和名字相同的控件组成，共享__________。 答1:同一个事件 第74题 控件数组中的每一个控件都有惟一的下标，下标值由_________________属性指定。 答1:Index 第75题 窗体上已有命令按钮Command1和标签Labe1，下列程序运行后，单击Command1按钮，标签Label1中显示的内容是________。 Option base 0 Private Sub Command1_Click() Dim a(5）As Integer, n As Integer For i = 1 To 5 a(i）= i n = n + a(i) Next i Label1 = n End Sub 答1:15 第76题 程序中自动测试数组的下界用__________函数来实现，上界用__________函数来实现。 答1:Lbound ; 第77题 当数组首次被声明时，对所有数值型数组默认初值是________；字符串数组默认初值是_________。 答1:0 ; 空 第78题 当用ReDim语句要改变动态数组的大小时，数组元素的值会________；用__________关键字可保留数组元素原来的值。 答1:

提交审核丢失 ; Pr

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Visual Basic题库（有答案）(8)在线全文阅读。