华南俳烁实业有限公司

考試首頁 | 考試用書 | 培訓(xùn)課程 | 模擬考場 | 考試論壇  
全國  |             |          |          |          |          |         
  當(dāng)前位置:計(jì)算機(jī)等級 > 二級考試 > Visual Basic > VB模擬試題 > 文章內(nèi)容
  

全國計(jì)算機(jī)等級考試二級VB程序設(shè)計(jì)模擬試題一【程序題】

中華IT學(xué)院   【 】  [ 2016年7月20日 ]
寫出下列程序的正確運(yùn)行結(jié)果(每題5分,共10分)

  1. Private Sub Command1_Click( )

  x=Int(Rnd)+3

  If x^2>8 Then y=x^2+1

  If x^2=9 Then y=x^2-2

  If x^2<8 Then y=x^3

  Print “y=”;y

  End Sub

  2. Public Sub Swap(ByVal x As Integer, y As Integer)

  Dim t As Integer

  t=x: x=y: y=t

  End Sub

  Private Sub Command1_Click( )

  Dim a As Integer ,b As Integer

  a=30: b=20

  Swap a ,b

  Print “a=”; a ;”b=”; b

  End Sub

寫出程序的正確運(yùn)行結(jié)果(每題5分,共10分)

1. y=  7

2. a=30 b=30

 

分享到:
本文糾錯(cuò)】【告訴好友】【打印此文】【返回頂部
將考試網(wǎng)添加到收藏夾 | 每次上網(wǎng)自動訪問考試網(wǎng) | 復(fù)制本頁地址,傳給QQ/MSN上的好友 | 申請鏈接 | 意見留言 TOP
關(guān)于本站  網(wǎng)站聲明  廣告服務(wù)  聯(lián)系方式  站內(nèi)導(dǎo)航  考試論壇
Copyright © 2006-2017 中華考試網(wǎng)(Examw.com) All Rights Reserved  營業(yè)執(zhí)照
犍为县| 贵德县| 蓝山县| 玛多县| 射洪县| 澜沧| 阿瓦提县| 昆山市| 富锦市| 长泰县| 太仆寺旗| 哈尔滨市| 长丰县| 馆陶县| 吉水县| 拜城县| 稻城县| 通化市| 含山县| 巩义市| 修水县| 唐山市| 丰台区| 包头市| 望都县| 革吉县| 吉水县| 静乐县| 石屏县| 罗定市| 松溪县| 武夷山市| 灵丘县| 伊通| 武宁县| 永平县| 咸宁市| 廊坊市| 安达市| 屏南县| 汪清县|