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

教育服务

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


成人高考报名入口

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

输入试题:
本题添加时间:2023/5/30 20:11:00
圆梦客服:王老师  19139051760(微信同号)  19139051760(微信同号)
Private Sub Command1_Click()
    Dim A(1 To 5) As Integer
    Dim x As Integer
    For i = 1 To 5
     A(i) = i
    Next i
      i = 1
    Do While x < 6
     A(i) = A(i) + x
     x = x + 2
     i = i + 2
    Loop
    Text1.Text = A(3)
    Text2.Text = A(5)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值是(    )。
A、5   9 B、5   4
C、9   5 D、4   5

答案是:A

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

南昌大学

更多试题>>>>
1、Private Sub Form_Click()   Dim A(1 To 3) As String   Dim c As Integer   Dim j As Integer   A(1)
2、Private Sub Form_click()   b = 1   Do While b < 40     b = b * (b + 1)   Loop  
3、Private Sub Form_Click()   Dim i As Integer, k As Integer   Static c As Integer   For i = 1 To 6 
4、Private Sub Form_Click()    Dim c As Integer, j As Integer, k As Integer    k = 1    c
5、Private Sub Form_Click()   Dim i As Integer, k As Integer, c As Integer   For i = 1 To 10    


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