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

教育服务

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


成人高考报名入口

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

输入试题:
本题添加时间:2023/5/30 20:12:00
圆梦客服:王老师  19139051760(微信同号)  19139051760(微信同号)
Sub Change(x As Integer, y As Integer)
   Dim t As Integer
   t = x
   x = y
   y = t
   Print x, y
End Sub
Private Sub Form_Click()
  Dim a As Integer, b As Integer
  a = 30: b = 40
  Change a, b
  Print a, b
End Sub
程序运行后,单击窗体,在窗体上显示的值是(    )。
A、
30   40
30   40
B、
30   40
40   30
C、
40   30
40   30
D、
40   30
30   40

答案是:C

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

南昌大学

更多试题>>>>
1、Private Sub Command1_Click()   Dim M(5)   For I = 1 To 5      M(I) = I * I   Next
2、Private Sub Command1_Click()   Dim A(1 To 5) As Integer   Dim x As Integer   For i = 1 To 5  
3、Private Sub Command1_Click()     Dim A(1 To 5) As Integer     Dim x As Integer  &#
4、Private Sub Form_Click()   Dim A(1 To 3) As String   Dim c As Integer   Dim j As Integer   A(1)
5、Private Sub Form_click()   b = 1   Do While b < 40     b = b * (b + 1)   Loop  


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