题目
Private Sub Command1 _Click()
For i = 1 To 20
x=Int(【 】*200+ 100)
If【 】 = 0 Then
Print x
S = S +【 】
End If
Next I
Print "Sum = "; S
End Sub
第2题
第3题
阅读以下应用说明及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
第4题
A.该模块的功能是将十进制数转换为5421BCD码
B.改程序会生成锁存器
C.always 块内语句在时钟的下降沿处执行
D.当输入为26时,输出为0010_0110
第5题
A.该模块的功能是将十进制数转换为5421BCD码
B.改程序会生成锁存器
C.always 块内语句在时钟的下降沿处执行
D.当输入为26时,输出为0010_0110
第6题
A.该模块的功能是将十进制数转换为5421BCD码
B.改程序会生成锁存器
C.always 块内语句在时钟的下降沿处执行
D.当输入为26时,输出为0010_0110
第7题
A.Y.是
B.N.否
第8题
A.Y.是
B.N.否
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!