题目内容
（请给出正确答案）
阅读以下程序：
Prlvate Sub Form_Click()
Dim k，n，m As Integer
n=10
m=1
k=1
Do While k＜=n
m=m*2
k＝k+1
Loop
Print m
End Sub程序运行后，单击窗体，输出结果为【 】。
安装简答题APP，拍照搜题省时又省心！
更多“阅读以下程序： Prlvate Sub Form_Click…”相关的问题
在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程：
Prlvate Sub Form_Click()
Open"D:\test1.txt"For Input As 1
Text1.FontSize＝14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【 】
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text＝【 】
Close
Open"D:\test2.txt"For Output As 1
Print 1,【 】
Close
End Sub
阅读以下程序： Private Sub Form_click() Dim k,n,m As integer n=10 m=1 k=1 Do While k＜=n m=m+2 k=k+1 Loop Print m End Sub 单击窗体程序的执行结果是【 】。
阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【 】。
以下程序用于计算“1+1/3+1/5+…+1/(2n+1)”，直至“1/(2n+1)”小于10-4。阅读下面程序，请在【 】和【 】处填上正确内容。 Private Sub Command1_Click() Sum = h: n = i do n=【 】 term =1/ n Sum = Sum + term if term ＜0.0001 then【 】 Loop Text1.Text = n Text2 *Text = Sum End Sub
在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读以下程序段： Private Sub Command1_Click() x=0 Do Until x＞=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为()。
A．1和0
B．2和240
C．3和50
D．4和168
阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在对应栏内
[说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1)，两个按钮——命令按钮1 (Command 1)按钮、命令按钮(Command 2)组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停止按钮，则计时停止。单击窗口则退出。
Option Explicit
Dim I
Private Sub Command1 _ Click()
i=0
Timer1. Interval = 1000
(1)
End Sub
Private Sub Command2_ Click()
Timer1. Enabled = False
End sub
Private Sub Form. Click(
(2)
End Sub
Private Sub Form. _Load()
Timer1. Enabled = False
(3)
End Sub
Private Sub Timer1 _ Timer()
i=i+1
(4)
End Sub
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
【说明8.1】
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。
【程序代码8.1】
Private Sub Command1_Click()
For i=1 To 20
x=Int((1)*200+100)
If (2)=0 Then
Print x
S=S+ (3)
End If
Next i
Print"Sum=";S
End Sub
【说明8.2】
程序8.2运行后，单击窗体，则在窗体上显示的内容是：a=(4)和b=(5)。
【程序代码8.2】
Private Sub Form_Click()
Dim a As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a=";a,"b=";b
End Sub
Sub p1(x As Integer, ByValy As Integer)
x=x+l0
y=y+20
End Sub
Sub p2(ByVal×As Integer, y As Integer)
x=x+l0
y=y+20
End Sub
Sub p3(ByVal×As Integer, ByVal y As Integer)
x=x+10
y=y+20
End Sub
阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在的对应栏内
[说明] 这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。下面是实现上述功能的程序，请填空。“Option Explicit”此语句的作用：强制显示声明
Dim UserName (2) As String
Dim Flag As Boolean
(1)
Private Sub Form. _ Load()
UserName (0) = "AA": UserName (1) = "BB": UserName(2) = "CC"
Flag = False
inputName = InputBox(“请输入名称：“,”身份确认”“,”)
Dim i As Integer
For i = 0 To False
If inputName = UserName(i) Then
(2)
End If
Next i
If (3) Then
MsgBox “用户身份确失败!退出应用”, vbOKOnly, “警告”
End
End If
End Sub
Private Sub Form_ Paint()
(4)
End Sub
阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。
[说明]
本程序求3～100之间的所有素数(质数)并统计个数；同时将这些素数从小到大依次写入顺序文件E: \dataout.txt；素数的个数显示在窗体Form1上。
[Visual Basic 代码]
Private Sub Command1_ Click ()
Dim count as integer, flag as Boolean
Dim t1 as Integer, t2 as Integer
(1)
Count=0
For t1=3 to 100
Flag=Tree
For t2=2 to Int(Sqr (t1 ) )
If (2) Then flag=False
Next t2
(3)
count=(4)
write 1, t1
End if
Next t1
(5)
Close 1
End Sub
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
