王老师：19139051760(微信同号)  13333709510
联大   青书学堂   文才   和学   现代兴业   安徽教育在线   超星   弘成   广东开放大学   国家开放大学   上海开放大学   含弘慕课 

教育服务
成人高校
成考录取分数线
我要提升学历
提升学历的理由：
升职加薪、积分落户、考研、公务员考试、子女入学、出国留学


成人高考报名入口

当前位置： 首页 > 国家开放大学系统 > 南昌大学> 国家开放大学Visual Basic6.0程序设计
 

输入试题：
本题添加时间：2023/5/30 20:09:00
圆梦客服：王老师  19139051760(微信同号)  19139051760(微信同号)
Private Sub Command1_Click()
    x = 0
    Do While x < 60
        x = (x + 2) * (x + 3)
        n = n + 1
    Loop
    Text1.Text = Str(n)
    Text2.Text = Str(x)
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
程序运行后，单击命令按钮在文件框Text3中显示的结果是（   ）。
A、72 B、74
C、7 D、16

答案是:B

出自 国家开放大学Visual Basic6.0程序设计  国家开放大学系统

南昌大学

更多试题>>>>
1、Private Sub Command1_Click()   Dim s As Double   Dim i As Integer   s = 5   i = 1   Do Whi
2、Private Sub Command1_Click()    Static y As Integer    Cls    For i = 0 To 2  
3、Private Sub Command1_Click()     n = Text1.Text     Select Case n    
4、Private Sub Command1_Click()     Static x As Integer     Static y As Integer  
5、Private Sub Command1_Click()   Dim x As Integer   Static s As Integer   x = Val(InputBox("请输入一个正整数="))


提升学历-成人高考报名入口 提升学历-成人高考院校名单