按了回车键后，将组合框中输入的内容添加到组合框中，组合框的名称是COMBO1。PRIVATE SUB COMBO1________[1]（KEYASCI_刷题宝

题干

按了回车键后，将组合框中输入的内容添加到组合框中，组合框的名称是COMBO1。
PRIVATE    SUB    COMBO1________[1]（KEYASCII AS   INTEGER）
IF  ________[2]
________[3]
END IF
END   SUB

上一题下一题 0.99难度填空题更新时间:2019-09-12 12:53:51

答案(点此获取答案解析）

同类题1

任意一个大于等于4 的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79。
编写一个验证哥德巴赫猜想的VB 程序：程序运行时，在文本框Text1 中输入一个大于等于4 的偶数，单击“验证”按钮Command1 后，如果哥德巴赫猜想验证成功，则在文本框Text2 中显示“Yes”，并在列表框List1 中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行结果如图所示。实现上述功能的VB 代码如下，但加框处代码有错，请改正。

函数judge的功能是判断整数x是否为素数，若是素数则返回True，否则返回False
Function judge（x As Integer）As Boolean
Dim j As Integer
judge = True
j = 2
Do While j < =" x" - 1 And judge = True
If x Mod j =" 0" Then
judge = False
Else
judge=true ‘①
End If
Loop
End Function
Private Sub Command1_Click（）
Dim n As Integer, p As Integer, q As Integer, flag As Boolean
n = Val（Text1.Text）
p = 1
flag = False
Do While flag = True And p < n ‘②
p =" p" + 1
q =" q" + 1 ‘③
If judge(p) And judge(q) Then
Text2.Text = "Yes"
flag = True
List1.AddItem Str(n)+ "=" + Str(p)+ "+" + Str(q)
End If
Loop
If flag ="False" Then Text2.Text = "No"
End Sub

同类题2

某算法流程图如图所示, 执行该算法，当i的值为3时，下列说法正确的是（）

A．输出s的值

B．程序出错

C．执行语句s=s+s*i和i=i+1

D．语句s=s+s*i已经执行了1次

同类题3

某算法的部分流程图如第下图所示。执行这部分流程后，“

”被执行的次数为（）

同类题4

在VB中，下列程序段执行后，变量a、b的值分别是（）
a=5
b=3
If a>b Then

a=b

同类题5

公元6世纪，中国的《张丘建算经》有一道著名的百鸡问题：公鸡5钱1只，母鸡3钱1只，小鸡3只1钱，有人用100钱买了100只鸡。请编写一段代码求其中公鸡，母鸡，小鸡各多少只？
Private Sub Command1_Click()
For i =" 0" To 20
For j =" 0" To 33
k =
If Then Print i, j, k
Next j
Next i
End Sub

相关知识点