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

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


成人高考报名入口

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

输入试题：
本题添加时间：2023/5/30 20:08:00
圆梦客服：王老师  19139051760(微信同号)  19139051760(微信同号)
Private Sub Command1_Click()
  Dim s As Double
  Dim i As Integer
  s = 5
  i = 1
  Do While i < 6
    i = i + 2
    s = s + i
  Loop
  Text1.Text = s
End Sub
程序运行后，单击命令按钮，在文件框Text1中的输出结果是（   ）。
A、13 B、20
C、11 D、18

答案是:B

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

南昌大学

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


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