- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB教程第7章 节 课堂讨论.ppt
第7章 习题讨论; 假设已通过下列Sub语句定义了SubA过程。若要调用该过程,可以采用______语句。
Sub SubA(x As Integer)
A. Print SubA(20) B. Call SubA(50000)
C. y = SubA(700) D. SubA 32000; 2.下面程序运行的结果是
Private Sub Form_Load()
Show
Dim x As Integer, x1 As Integer
x = 5: x1 = 4
Call Ktest(x, x1)
Print x; x1;
Call Ktest(x, x1)
Print x; x1
End Sub
Sub Ktest(ByVal t As Integer, t1 As Integer)
t = t + 5
t1 = t1 + t * 2
End Sub
A. 10? 14? 25? 39 B. 5 24? 44? 5
C. 5? 24? 5? 44 D. 10? 24? 15? 44; 在窗体上已经建立了一个文本框Text1和一个命令按钮(Command1),运行程序后单击命令按钮,则在文本框Text1中显示的内容是_______。
Dim a As Integer 模块级变量
Private Sub Command1_Click()
Dim b As Integer, c As Integer
a = 2: b = -1
Call MySub(b, c)
c = c + b:Call MySub(c, b)
a = a + c
Text1.Text = a + b + c
End Sub
Sub MySub(ByVal x, y)
Dim b As Integer
a = x + a + b
x = 2 * a + x
y = x + 1
End Sub;编程补充题
您可能关注的文档
- units1 good morning讲解材料.ppt
- unitthebattleagainstaids 知识介绍.ppt
- unitvocabulary教程文件.ppt
- Unit_2_Future_of_Net_Economy 工程硕士 英语教程 教学文稿.ppt
- Unit_2_Puzzles_in_Geography教材课程.ppt
- Unit_2_The_Struggle_to_Be_an_All-American教学文稿.ppt
- unit_5_if_you_go_the_party_you’ll_have_a_great_time(1a-2c) by xulili 知识介绍.ppt
- Unit_6 Sanctuary or Fulfillment 高等院校研究生英语系列教材 综合教程(上).ppt
- Unit_6Nonverbal Communication 跨文化的交际 大学.ppt
- Unit_6_Engineering 工程硕士 英语教程 教学教案.ppt
文档评论(0)