您现在的位置:首页 >> 在线习题 >> 内容

高校计算机等级考试(江西考区)笔试试题参考答案

时间:2009-6-19 11:27:29 点击:2492

试题二、三:选择题

31

A

32

C

33

D

34

D

35

B

36

D

37

A

38

D

39

B

40

B

41

D

42

B

43

B

44

D

45

B

46

A

47

B

48

D

49

B

50

C

51

D

52

B

53

A

54

C

55

B

56

B

57

A

58

A

59

B

60

D

61

D

62

B

63

A

64

C

65

D

66

A

67

B

68

B

69

A

70

C

试题四:综合应用题

Private Sub Cmdconvert_Click()

m = Val(Txtnum.Text)

k = m Mod 2

q = Int(m / 2)

Do While q <> 0

Txtresult.Text = k & Txtresult.text

k = q Mod 2

q = Int(q / 2)

Loop

Txtresult.Text = k & Txtresult.text

End Sub

Private Sub Cmdclear_Click()

Txtnum.Text=””

Txtresult.Text=””

End Sub

作者:Admin  
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4