• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
填空题

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 　Sub PR( ) 　　　Randomize 　　　Dim a 　　　For j=1 To 10 　　　　　a(i)=Int( 【 】 ) 　　　　　If 【 】Then k=k+1 　　　　　Print a(j) 　　　　Next j 　　　　Print 　　　　Print k/10 　　End Sub

答案： (99*Rnd)+1
题目列表

你可能感兴趣的试题

填空题

设有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = _________ For i = 2 To 8 If arr1(i) < Min Then _________ Next Print "最小值是："; Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组 中各元素的最小值。请填空。

答案： arrA(A) , Min = arrA(i)
填空题

新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮， Form1窗体消失，显示Form2窗体，程序如下： 　　Private Sub Command1_Click() 　　　【 】　 　　　Form2　【 】　 　　End Sub 　　试补充完整。

答案： Me．Hide或者Form1．Hide或者Unload Me
填空题

要使标签的背景样式为不透明，应将BackStyle属性设置为【 】。
答案： A
填空题

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 　Sub PR( ) 　　　Randomize 　　　Dim a 　　　For j=1 To 10 　　　　　a(i)=Int( 【 】 ) 　　　　　If 【 】Then k=k+1 　　　　　Print a(j) 　　　　Next j 　　　　Print 　　　　Print k/10 　　End Sub

答案： (99*Rnd)+1
填空题

在窗体上画两个文本框，其名称分别为Namel和PassWordl，然后编写如下事件过程 　　Private Sub Form_Load() 　　　　Show 　　　　Namel．Text=" " 　　 Passwordl．Text=" " 　　　　Passwordl．SetFocus 　　End Sub 　　Private Sub Passwordl_KeyDown(KeyCode As Integer，Shift As Integer) 　　　　Namel．Text=Name1．Text+Chr(KeyCode - 3) 　　End Sub 　　程序运行后，如果在Passwordl中输入“hit’’’，则在Namel文本框中显示的内容是【 】。

答案： EFQ
填空题

数据结构分为线性结构和非线性结构,带链的队列属于【 】。
答案： 线性结构
填空题

下述程序段在运行时的显示结果是【 】。 　　Cls 　　x=1．34 + 8 　　Print Len(x)

答案： D
填空题

窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command１、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对 List１中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load( ) For i=1 To 100 If i Mod 7=0 Then 【 】 End Ibf Next End Sub Private Sub Command1_Click( ) Sum=0 For i=0 To【 】 Sum=Sum+【 】 Next Text1．Text=Sum End Sub

答案： List1.AddItem i
填空题

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

答案： num Mod6=2 And num Mod 5=3
填空题

要使标签的背景样式为不透明，应将BackStyle属性设置为【 】。
答案： A
填空题

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 　　Sub GASR() 　　　　Dim m 　　　　m=Array(10，1，5，6，7) 　　　　For i=0 To 3 　　　　　　For j=【 】　 　　　　　　　　If m(i) ＞=m(j) Then 　　　　　　　　【 】　 　　　　　　　　m(i) =m(j) 　　　　　　　　m(j) =t 　　　　　　End If 　　　　Next j 　　　 【 】　 　　　For i=0 To 4 　　　　　　Print m(i) 　　　Next i 　　End Sub

答案： i + 1 To 4
填空题

某二叉树中度为2的结点有18个，则该二叉树中有 _________个叶子结点。
答案： S
填空题

下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。 　　Private Sub Command1_Click() 　　　　Dim x As Single 　　　　x=InputBox("请输入x的值!") 　　　　　【 】　 　　　　　Case Is<50 　　　　　y=0．8 * x 　　　　Case 50 To 100 　　　　　y=0．7 * x 　　　　　　【 】　 　　　　　Print"输入的数据出界!" 　　　End Select 　　　Print x，y 　　End Sub

答案： Select Case x
填空题

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

答案： 006，658．60
填空题

用户可以用【 】语句定义自己的数据类型。
答案： TyPe
填空题

在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发【 】事件，当对象失 去焦点时将触发【 】事件。
答案： GotFocus
填空题

下列程序的输出结果为【 】。 　　num=2 　　While num<=3 　　　num=num+1 　　　Print num 　　Wend

答案： 3 4
填空题

按"先进后出"原则组织数据的数据结构是【 】。
答案： 栈
填空题

在窗体上画一个名称为"Command1"的命令按钮,然后编写如下事件过程： Private Sub Commandl_Click() Dim a As String a="123456789" For i=1 To 5 Print Space(6-i)；Mid$(a,【 】,2*i-1) Next i End Sub 程序运行后,单击命令按钮,窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。

答案： 6-i
填空题

将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【 】。
答案： Picture1.picture=loadpicture(“c:\moon.jpg”)
微信扫码免费搜题