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

在修改列表框内容时，RemoveItem方法的作用是【 】。

答案： 用来删除列表中指定的项目
题目列表

你可能感兴趣的试题

填空题

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

答案： x Mod 4 = 1 And x Mod 5=2
填空题

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

下面程序的功能是把文件file1.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件 file2.txt。请填空。 Private Sub Command1_Click() Dim in char As String,temp As String,out char As String Out char="" Open"file1.txt"For Input As#1 Open"file2.txt"For Output As【 】 n=LOF( 【 】) in char=Input$(n,1) For k=1 To n temp=Mid(in char,k,1) If InStr (out.char,temp)= 【 】Then Out char=out char＆temp End If Next k Print #2, 【 】 Close #1 Close #2 End sub

答案： B,A,0,outchar
填空题

下面程序是用来打印九九乘法表的，请补充完整。 　　Dim i As Integer，j As Integer，Strl$ 　　Strl=" " 　　For i=1 To 9 　　Forj=1 To 9 　　　If 【 】 Then 　　　　　　Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) 　　　　Else 　　　Strl=Strl & Chr(13) 　　　 【 】 　　　　End If 　　　　Next j 　　Next i 　　Print Str

答案： j＜=i
填空题

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

如果存在如下过程： 　　Private Function FMax(a( )As Integer) 　　　Dim First As Integer，Last As Integer，i As Integer 　　　First=LBound(A) 　　　Last=UBound(A) 　　　Max=a(First) 　　　For i=First To Last 　　　　If a(i) ＞ Max Then Max=a(i) 　　　Next i 　　　FMax=Max 　　End Function 　　在窗体上添加一个命令按钮，然后编写如下事件过程： 　　Private Sub Command1 Click( ) 　　　　ReDim m(1 To 4) As Integer 　　　　m(1)=20：m(2)=30：m(3)=50：m(4)=100 　　　　c=FMax(m) 　　　　Print c 　　End Sub 　　单击命令按钮，其输出结果为【 】。

答案： 100
填空题

在修改列表框内容时，RemoveItem方法的作用是【 】。
答案： 用来删除列表中指定的项目
填空题

以下过程的作用是将26个小写字母逆序打印出来，请补充完整。 　　Sub Inverse() 　　　　For i=122 To 【 】 　　　　　　Print 【 】 ； 　　　　Next i 　　End Sub

答案： 97 Step -1
填空题

在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 _________的作用是将测试数据传送给被测试的模块，并显示被测试 模块所产生的结果。
答案： 驱动模块
填空题

下列程序是判断一个整数(>=3)是否为素数，请补充完整。 　　Dim n As Integer 　　n=InputBox("请输入一个整数(>=3)") 　　k=Int(Sqr(n)) 　　i=2 　　swit=0 　　While i<=k And swit=0 　　　　If n Mod i=0 Then 　　　　【 】 　　　　Else 　　　　【 】 　　　　End If 　　Wend 　　If swit=0 Then 　　　　Print n；"是一个素数。" 　　Else 　　　　Print n；"不是一个素数。" 　　End If

答案： swit=1
填空题

我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡5元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。 　　Private Sub Commandl_Click() 　　　Dim Cock As Integer 　　　Dim Hen As Integer 　　　Dim Chick As Integer 　　　Forml．Print“公鸡数”，“母鸡数”，“雏鸡数” 　　　For Cock；0 To 20 　　　　　For Hen=0 To 33 　　　　　　　For Chick=0 To 100 　　　　　　　　　If 【 】Then 　　　　　　　　　　Form1．Print Cock，Hen，Chick 　　　　　　　　　End If 　　　　　　　Next Chick 　　　　 Next Hen 　　　Next Cock 　　End Sub

答案： Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + ch/3 = 100
填空题

与数学表达式cos2(a+b)/3x+5 对应的Visual Basic表达式是【 】。
答案： (cos(a+b))^2/(3*x)+5
填空题

在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。 　　Private Sub Form_Load() 　　　　Forml．Caption =“字体变化示范” 　　　　cmdMax．Caption=“字体变大” 　　　　cmdMin．Caption=“字体变小” 　　End Sub 　　Private Sub cmdMax_Click() 　　　　　【 】　 　　　　Forml．Print”字体由小变大” 　　End Sub 　　Private Sub cmdMin_Click() 　　　　　【 】　 　　　　　Forml．Print“字体由大变小” 　　End Sub

答案： Form1．FontSize=Form1．FontSize + 2
填空题

下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 　　Sub TOF( ) 　　Randomize 　　Dim s As Double 　　Dim a(10) As lnteger 　　For i=0 To 9 　　　　　【 】 　　Next 　　For i=0 To 9 　　　　If【 】Then 　　　　　Print a(i) 　　　　　s=s+a(i) 　　　　　【 】　 　　Next i 　　Print 　　Print "S=" ; s 　　End Sub

答案： a(i)=Int(Rnd * 200+100)
填空题

下述语句段在运行时的显示结果是【 】。 　　Cis 　　x=10．34 + 8 　　Print Len(x)

答案： E
微信扫码免费搜题