爱问知识人 爱问教育 医院库

vb编程的问题

首页

vb编程的问题

我有三个有关Visual Basic编程的题目不会做,哪位高手帮我一下好吗?在下先谢谢了。

1.vb编程操作题(比较三个人的身高,输出最大值):
1、启动VB.6.0
2、打开D:盘example文件夹,打开“工程1”
3、进入“代码编辑窗口”填空位置填入相应的变量或控件属性
4、运行程序,得到正确结果

2.题目:
打开vb6.0,建立一个带有命令按扭的控件;
将以下程序复制到代码编辑窗口相应的位置,并填空,完成程序。
dim i,j as Integer
for i = 5 to 1 step -1
print Tab(i);
for j = 1 to 5
print "*";
next ____
print
next ____
---------  
   *
  ***
 *****
*******

3.在vb界面设计器上建立三个宽度900px的文本宽,一个显示文字为中文"确定"的命令按钮,
完善以下程序,利用文本框分别任意输入三个数字,单击"确定"按钮时,在窗体上按照从大到小的顺序输出结果:


dim a,b,c,d as integer
a= val(_____)
b= val(_____)
c= val(_____)
if ___ then
____
____
____
endif
if ____ then
____
____
____
endif
if ____ then
____
____
____
endif
print a,b,c

这三道题实际上是中学的信息技术题,可我还是做不出来。只好求教各位了。

提交回答
好评回答
  • 2006-11-04 12:21:38
    第3个
    Dim a, b, c, d As Integer
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    c = Val(Text3.Text)
    If b < c Then
    d = b
    b = c
    c = d
    End If
    If a < b Then
    d = a
    a = b
    b = d
    End If
    If b < c Then
    d = b
    b = c
    c = d
    End If
    Print a, b, c
    第1个可以用第3个的算法(只求最大值的话可以省略最后一个If),最后输出a就行了。
    第2个,似乎按理说只有这两个空让填又不用动其他代码的话,那两个空应该分别填j和i的。。但是输出的结果跟你写的很不一样。。如下图

    1***

    2006-11-04 12:21:38

其他答案

    2006-11-04 12:14:08
  •   好久没动VB,改用DELPHI了,电脑也没装,不能调试,只能粗略的回答,
    估计有错误。请其他高手补充纠正吧,第一题和第3题类似,就不说了/
    (2)dim i,j as Integer
    for i = 5 to 1 step -1
    print Tab(i);
    for j = 1 to 5
    print "*";
    next __i__
    print
    next __j__
     确实这个题目有点问题。
       --------- (3)dim a,b,c,d as integer a= val(text1。text) b= val(text2。text) c= val(text3。
      text) if a

    许***

    2006-11-04 12:14:08

类似问题

换一换
  • 程序设计 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助

确定举报此问题

举报原因(必选):