笔果题库
VB程序设计
历年真题
搜题找答案,就上笔果题库
窗体上有一个文本框(Text1)和一个列表框(List1)。下面的程序在按Enter(回车)键后,将文本框的内容加到列表框,如果列表框已经有相同的项目则不添加。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim I As Integer If KeyAscii = 13 Then‘查找是否有相同的项目For I =O To (l)________If(2)__________ThenExit SubEnd IfNextList1.Addltem(3)________End IfEnd Sub 窗体上有一个文本框(Text1)和一个列表框(List1)。下面的程序在按Enter(回车)键后,将文本框的内容加到列表框,如果列表框已经有相同的项目则不添加。
搜题找答案,就上笔果题库
窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。Private Sub Command 1_Click ()Dim i, j,sum As Integer For i=1 To 5sum = 0For j=1 To 5sum = sum + i + jNextNextPrint sumEnd Sub窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。
搜题找答案,就上笔果题库
窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。Private Sub Command 1_Click ()Dim i, j, sum As IntegerDim a(10) As Integer For i=l To 10a(i)= i * i Mod 5Nextsum = 0For i = 1 To 10 Step 2sum = sum + a(i)NextPrint sumEnd Sub窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。
搜题找答案,就上笔果题库
窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体上一共显示了___________个星号。Private Sub Command 1_Click()Dim i, j As Integer For i = 1 To 5For j = 1 To 6 - iPrint “”;NextFor j = 1 To 2 * i - 1Print “*”;NextPrintNextEnd Sub窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体上一共显示了___________个星号。
搜题找答案,就上笔果题库
窗体上有一个命令按钮(Command1)和一个文本框(Text1),编写如下程序,当运行程序后,连续单击三次命令按钮,文本框Text1显示的内容是________。Private Sub Command 1_Click()Dim a, i As IntegerStatic b As Integer a = a +1b = b +3i = 1Do While I < bi = i + 1If (b + i)Mod 2 = 0 Then Exit DoLoopText1.Text = a * 4 + b + iEnd Sub窗体上有一个命令按钮(Command1)和一个文本框(Text1),编写如下程序,当运行程序后,连续单击三次命令按钮,文本框Text1显示的内容是________。
搜题找答案,就上笔果题库
从键盘上输入10个整数,计算这10个整数的平均值,统计并显示比平均值大的数据个数。
搜题找答案,就上笔果题库
变量定义语句Dim A%,说明A是()
搜题找答案,就上笔果题库
Len(“12345678”)+ Len(“1234”)的结果是()
搜题找答案,就上笔果题库
为了给变量x,y赋初值1,下列正确的赋值语句是()
搜题找答案,就上笔果题库
MsgBox函数的返回类型是()