UC知道两道vb编程
来源：百度知道 编辑：UC知道 时间：2024/05/22 06:52:39
1.设计程序：输入两个正整数，求其最大公约数和最小公倍数
2.设计一个菜单程序（一个简单的记事本），主菜单为“文件”，“编辑”和“帮助”。其中文件和帮助的菜单项为新建，打开，关闭，分隔线，保存，另存为，打印，分隔线，退出，帮助菜单中的菜单项为索引，内容，向导，分隔线，关于等。加上“格式”菜单，其中的菜单项为：字体(FontName)，字型[子菜单：粗体（FontBold)，斜体(FontItalic)，删除线(FontStrikethru)]，字号(FontSize)，下划线(FontUnderline)。并为上述菜单项建立菜单程序.急求，麻烦大家了，谢谢
2.设计一个菜单程序（一个简单的记事本），主菜单为“文件”，“编辑”和“帮助”。其中文件和帮助的菜单项为新建，打开，关闭，分隔线，保存，另存为，打印，分隔线，退出，帮助菜单中的菜单项为索引，内容，向导，分隔线，关于等。加上“格式”菜单，其中的菜单项为：字体(FontName)，字型[子菜单：粗体（FontBold)，斜体(FontItalic)，删除线(FontStrikethru)]，字号(FontSize)，下划线(FontUnderline)。并为上述菜单项建立菜单程序.急求，麻烦大家了，谢谢
1.程序代码如下；
Option Explicit
Private Sub Form_Click()
Dim m, n, mn, t, r As Integer
n = Val(Text1)
m = Val(Text2)
If n <= 0 Or m <= 0 Then
Print "数据出错"
End
End If
mn = m * n
If m < n Then t = m: m = n: n = t
Do While n <> 0
r = m Mod n
m = n
n = r
Loop
Print "最大公约数", m,
Print "最小公倍数", mn / m
End Sub
第二个不明白什么意思？麻烦说清楚一点