麻烦帮忙做下VB程序题~！！万分感谢~~
题号:9 题型:单选题（请在以下几个选项中选择唯一正确答案） 本题分数:5
内容:
工程资源管理器窗口中的选项卡没有
选项:
a、查看代码
b、窗体布局
c、查看对象
d、文件夹切换
题号:10 题型:单选题（请在以下几个选项中选择唯一正确答案） 本题分数:5
内容:
下列选项中不正确的是
选项:
a、Show方法可以用来加载和显示一个窗体
b、Hide方法可以将窗体暂时隐藏起来，而不从内存中删除
c、当用 Show方法显示窗体时，必定会发生Load事件
d、当用 Show方法显示窗体时，必定会发生Activate事件
题号:11 题型:是非题 本题分数:5
内容:
通过对对象进行抽象可以形成类
选项:
1、 错
2、 对
--------------------------------------------------------------------------------
题号:12 题型:是非题 本题分数:5
内容:
当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件
选项:
1、 错
2、 对
--------------------------------------------------------------------------------
题号:13 题型:是非题 本题分数:5
内容:
编译后形成的可执行应用程序文件是可以脱离开系统独立执行的
选项:
1、 错
2、 对
10、c
11、2
12、1
13、2
vb程序设计题,请高手解答
为了使大量的数据在输出时看得清楚，我们在运行窗体上设置了一个文本框，并把文本框的属性MultiLine设为True，Scorllbars设为2（带竖直滚动条）。Vb程序代码如下：Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6,...
VB编程的题,达人进一下
1:首先,在窗体上新建一个按钮叫CmdEven，然后写入代码 sub CmdEven_Click()dim i dim sum sum = 0 for i=2 to 100 step 2 sum = sum + i next i print sum end sub 2:建立一个按钮，叫CmdOK，建立一个文本框，叫Text1，程序如下 sub CmdOK_Click()dim n n=val(Text1.text)print ...
会VB的快进来帮我写下代码,十分感谢!
这是第一个：Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()Print "我们大家一起来轻松学习VB语言"Me.Caption = "第一个visual basic 程序"Label1.Caption = "编写VB程序是一件非常有趣的事情"Command1.Caption = "画面已经改变"Command2.Enabled = True End Sub 这是...
有没有VB程序设计的大佬会这几道题?急求!万分感谢
第一题 Private Sub btnTriangle_Click(sender As Object, e As EventArgs) Handles btnTriangle.Click Dim a As Double, b As Double, c As Double a = CDbl(txtSideA.Text)b = CDbl(txtSideB.Text)c = CDbl(txtSideC.Text)If a + b > c And a + c > b And b + c > a Then...
...编一程序将a与b的值互换。 急~~~谢谢万分感谢~!!!
Option Explicit Dim a As Single, b As Single, t As Single Private Sub Command1_Click()t = a a = b b = t Print a, b '如果需要输出结果的话，加上这一句 End Sub Private Sub Form_Load()a = Val(InputBox("a=?"))b = Val(InputBox("b=?"))End Sub ...
急急急!求下面这道题的VB代码,最好附上效果运行图。万分感谢。
Private Sub Command1_Click() x = Val(Text1.Text) If x < 0 Then y = x If x = 0 Then y = "未定义" If x > 0 And x <= 10 Then y = x ^ 2 If x > 10 And x <= 20 Then y = 10 If x > 20 And x <= 40 Then y = 0.5 * x + 20 If x ...
请教VB代码。万分感谢!回答满意则再送10个金币
Private Sub Command1_Click()Dim A As IntegerA = 0A = Val(InputBox("请输入会员积分！", "输入会员积分！", 0)) '这里需要给变量A赋值，即会员的积分 If A <= 10 Then MsgBox "普通会员，享受9折优惠！" & vbCrLf & vbCrLf & "只需再购买" & 100 - A * 10 & "元的...
VB 读文件问题 求修改程序 万分感谢!!!
首先，你给代码不全。Dim sbwenduup(100)Dim sbwendulow(100)Dim sbtime2(100)Dim sbtime3(100)Dim sbdianliuup(100)Dim sbdianliuups(100)Dim sbalarm(100)这些数组统统没有定义，没有这些定义运行都是问题。其次，按照你给定para.txt内容上机测试不会出现任何问题结果如下 4 4.5 0 16200 ...
求高手帮我做一个VB大作业,有悬赏!!!
贪吃蛇程序，我可以给你，我自己无聊时，写过一个JS版本的，可以很快改成VB版本，纯属原创。我一个熟练的老程序员，还写了一下午，可见是有难度的。
...百思不得其解(本人小白,请大神帮忙,万分感激)
要分段线可以渐次画出。sub 划线（）'作为一模块 Dim myAcadApp As AutoCAD.AcadApplication Dim activeDoc As AutoCAD.AcadDocument Dim acMS As AutoCAD.AcadModelSpace On Error Resume Next Set myAcadApp = GetObject(, "Autocad.Application") '检查AutoCAD是否已经打开 If Err <> 0 Then '没...
