1 、1编程在窗体上输出101~500之间的所有能被3或者7整除的奇数 ，按照一行5个的方式输出并最后符合要求的数的和解代码为 Private Sub form_loadShow Dim n ， sum As Integer Print Spc6 quot101~500之间的所有能被3或者7整除的奇数，及各数的和quoti = 0 sum = 0 For n = 101 To 500；1A 算法中执行的步骤可以无休止的执行下去 2D 顺序选择循环结构 3B 面向对象的语言 4C 属性值不必一一重新设置 5C 1 6D False 7A 图片框 8B 注释语句可以放在代码中的任何位置 9B PassWordChar 10A A=inputboxquot请输入quotquotvbquotquot正整数quot ，quot 。
2 、1打开属性窗口的热键是 d AF1 BF2 CF3 DF4 2在VB60的集成开发环境有几种工作状态 c A1种 B2种 C3种 D4种 3下面四个选项 ，不是窗体属性的是d AMinBu；quot， vbYesNoIf choice = vbNo ThenExit DoEnd Ifrecnum = recnum + 1LoopEnd SubPrivate Sub Command3_ClickClose #filenumEndEnd Sub第四题Private Sub Command1_ClickCall objargLabel1End SubPrivate Sub objarglad As ControlladBackColor = HFF0000ladForeColor = H 。
3、3假定有一个通用对话框 CommonDialog1 ，除了可用语句CommonDialog1Action=2显示“另存为”文件对话框外 ，还可以用___调用API___方法显示4用颜色常数将窗体的背景颜色设置为红色，代码应为Form1BackColor=___vbred___5___方法的功能是画线或矩形6FileCopy语句的功能是___复；这道题有3个循环过程 ，循环的开始顺序是从外往里 ，当最里面的循环结束后重复次里面的循环，然后重复再次里面的循环一直到最外层循环结束我们拆开来看 先循环i，i=1的时候x=1 ，这时候进入第二个循环 再循环j ，i=1，j=1的时候x=3 最后循环k ，i=1 ，j=1，k=1的时候x=x+6 ，即x=9 k需要循环2。
4 、练习112Private Sub Form_ClickText1Move 0 ， 0 End Sub Private Sub Text1_ChangeText1Move MeWidth Text1Width， 0 End Sub 练习113Private Sub C1_ClickText1Text = LCaseText1TextText2Text = UCaseText1；一单项选择题20道小题 ，共30分1Visual basic是一种面向对象的编程语言 ，采取了D 的编程机制1分A事件驱动 B可视化 C结构化 D面向对象 2若要设置图形命令按钮被按下时所显示的图形，可通过A 属性来设置1分ADownPicture BDisabledPicture CPicture D 。
5 、#39没循环一次 ，年龄加1 loop print n #39这个n就是答案 分析VB提供的循环 ，常用的是For和Do 通常For适合已经知道循环次数的循环，而Do适合不知道循环次数的循环，本题就是求循环次数 ，所以用DO当然 ，本问题用解析算法即解方程也可以，更简单了sub xxx dim h as integer ，b as int 。
6、解答这么多题就给这么点儿分 ，题主于心何忍1A ListIndex，当前选中项目的索引值 B ListCount ，列表中的项目数所以这个答案是对的C Count ，ListBox 下没有这个属性在才有DIndex，控件的索引值 2区分 Caption 和 Name 的不同 ，Name 是这个 Label。
本文来自作者[翁俊拔]投稿，不代表调研号立场，如若转载，请注明出处：https://kydy.org.cn/miao/15557.html
评论列表（4条）
我是调研号的签约作者“翁俊拔”！
希望本篇文章《vb编程题及答案/vb编程代码100例》能对你有所帮助！
本站[调研号]内容主要涵盖：调研号,生活百科,小常识,生活小窍门,百科大全,经验网
本文概览：1、1编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和解...