一道VB编程题

2024-05-13

1. 一道VB编程题

创建3个文本框，第一个输入年，第二个输入月，第三个输入日。
用year(now),month(now),day(now)分别返回当前年月日。
用year(now)-学生生日即可得到年龄，如果想要准确的周岁生日，再比较月，日就行了。
用inputbox也可以
a=inputbox("输入学生生日-年"）
b=inputbox("输入学生生日-月"）
c=inputbox("输入学生生日-日"）
x=year(now)-a    'x即为学生年龄，如果想算仔细一些的话，就要进行月，
                   日的比较
if b<month(now) then
  print "该学生已经过了";x;"岁生日了"
 elseif b=month(now) and c<day(now) then
       print "该学生已经过了";x;"周岁生日了"
  elseif b=month(now) and c=day(now) then
       print "今天是xx同学";x;"周岁的生日"
  else
    print "该学生还不满";x;"周岁"       
   end if

一道VB编程题

2. 一道VB编程题

创建3个文本框，第一个输入年，第二个输入月，第三个输入日。
用year(now),month(now),day(now)分别返回当前年月日。
用year(now)-学生生日即可得到年龄，如果想要准确的周岁生日，再比较月，日就行了。
用inputbox也可以
a=inputbox("输入学生生日-年"）
b=inputbox("输入学生生日-月"）
c=inputbox("输入学生生日-日"）
x=year(now)-a    'x即为学生年龄，如果想算仔细一些的话，就要进行月，
                   日的比较
if b<month(now) then
  print "该学生已经过了";x;"岁生日了"
 elseif b=month(now) and c<day(now) then
       print "该学生已经过了";x;"周岁生日了"
  elseif b=month(now) and c=day(now) then
       print "今天是xx同学";x;"周岁的生日"
  else
    print "该学生还不满";x;"周岁"       
   end if

3. vb编程例题

题目好像不全。以下的程序是实现这样的功能：
用随机函数产生10个50以内(包括50)的随机整数存入一维数组，从键盘上输入一个数，在数组中查找这样的数，最后返回查找结果：在数组的第几个元素中找到，或是未找到这样的数。
Private Sub Command1_Click()  Dim a(10) As Integer, x As Integer  Randomize  For i = 1 To 10    a(i) = Int(Rnd() * 51)    Print a(i);  Next i  Print  x = InputBox("请输入一个数：")  For i = 1 To 10    If a(i) = x Then Exit For  Next i  If i < 11 Then    Print "a("; i; ")="; x  Else    Print "未找到"; x  End IfEnd Sub

vb编程例题

4. VB操作题只需告诉我程序代码编写

你这个问题涉及到的操作步骤比较多，代码很简单；
1，启动VB程序，新建一个项目。
2，在VB窗口，单击[工具]菜单，选择[菜单编辑器]，出现“菜单编辑器”窗口；

在标题框里，输入：文件；
在名称框里，输入：menu1；（注意最后不是英文字母是数字1）
如下图所示：

然后单击[下一个]，再单击向右的箭头按钮，见下图：

在标题框里，输入：打开；
在名称框里，输入：m1；
见下图；

然后单击[下一个]，在标题框里，输入：关闭；在名称框里，输入：m2；
然后单击[下一个]；在标题框里，输入：保存；在名称框里，输入：m3；
见下图：

因为要制作弹出式菜单，所以单击上图中，最下面的空白框里的“文件”，出现下图；

单击[可见]，去掉勾选，见下图；

至此，操作完毕，单击[确定]，回到VB界面；
添加一个按钮控件，改名为“弹出菜单”
代码如下：
Option Explicit
Private Sub Command1_Click()
PopupMenu menu1
End Sub

5. 这道题VB程序设计怎么做？

Option Explicit
Private Sub Command1_Click()
Text1.Text = ""
Label2.Caption = ""
Dim sum As Integer
Dim i As Integer
For i = 0 To 9
If List1.List(i) Mod 2 = 0 Then
If Text1.Text = "" Then
Text1.Text = List1.List(i)
Else
Text1.Text = Text1.Text & "  " & List1.List(i)
End If
sum = sum + Val(List1.List(i))
End If
Next i
Label2.Caption = sum
End Sub
Private Sub Form_Load()
Text1.Text = ""
Label2.Caption = ""
List1.Clear
Dim i As Integer
For i = 0 To 9
Randomize
List1.AddItem Int(Rnd * (99 - 10 + 1)) + 10, i
Next i
End Sub

这道题VB程序设计怎么做？

6. 这道vb题怎么写代码？

Command1按钮的Caption属性设置为："打开文件"
通过菜单-->工程-->部件：Microsoft Common Dialog Control 6.0(SP6)选上对勾：如下图：

添加通用对话框，并对应设置属性：名称设置为："CD1"DialogTitle设置为："打开文件"Filter设置为："所有文件(*.*)|*.*|文本(*.txt)|*.txt"
Private Sub Command1_Click()    CD1.ShowOpenEnd Sub基本按照您题目的要求，不明白再问哦！

7. 求一个VB程序的代码最好50行以上！

（这里有更多的源码）

一个简单的时钟
DefDbl A-ZPrivate Sub Form_Load()    Timer1.Interval = 100    Width = 4000    Height = 4000    Left = Screen.Width \ 2 - 2000    Top = (Screen.Height - Height) \ 2End SubPrivate Sub Form_Resize()    Dim i As Long    Dim Angle As Single    Static Flag As Boolean        If Flag = False Then        Flag = True        For i = 0 To 14            If i > 0 Then Load Line1(i)            Line1(i).Visible = True            Line1(i).BorderWidth = 5            Line1(i).BorderColor = RGB(0, 128, 0)        Next i    End If    For i = 0 To 14        Scale (-1, 1)-(1, -1)        Angle = i * 2 * Atn(1) / 3        Line1(i).X1 = 0.9 * Cos(Angle)        Line1(i).Y1 = 0.9 * Sin(Angle)        Line1(i).X2 = Cos(Angle)        Line1(i).Y2 = Sin(Angle)    Next iEnd SubPrivate Sub Timer1_Timer()    Const HH = 0    Const MH = 13    Const SH = 14    Static ls    If Second(Now) = ls Then Exit Sub    ls = Second(Now)    Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))    Line1(HH).X1 = 0    Line1(HH).Y1 = 0    Line1(HH).X2 = 0.3 * Cos(Angle)    Line1(HH).Y2 = 0.3 * Sin(Angle)    Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60))    Line1(MH).X1 = 0    Line1(MH).Y1 = 0    Line1(MH).X2 = 0.7 * Cos(Angle)    Line1(MH).Y2 = 0.7 * Cos(Angle)    Angle = 0.5236 * (75 - Second(Now))    Line1(SH).X1 = 0    Line1(SH).Y1 = 0    Line1(SH).X2 = 0.8 * Cos(Angle)    Line1(SH).Y2 = 0.8 * Sin(Angle)End Sub

求一个VB程序的代码最好50行以上！

8. vb程序设计题

1、控件，只要一个输入函数的文本框数组（也可以再加两个文本框用来输入自变量的上下限），对应的指定颜色用的标签，一个确定按钮，一个显示曲线的图片框。
2、“实现坐标系的自由设定”：a.立体/平面；b.直角坐标系/极坐标系；c.坐标平移；d.坐标旋转。这几个功能实现起来有点难度哦。尤其是“立体旋转”。
3、如考虑坐标系的问题，界面可以添加两组单选按钮用来选择a和b。平移直接用鼠标拖动就好了。
有什么更好的想法我们可以再交流
最新文章
热门文章
推荐阅读