99问答网
所有问题
当前搜索:
vb程序设计经典例题
vb程序设计
实例100
答:
试题一.1 Private Sub Form_Click()Print fs_sum(100)End Sub Function fs_sum(ByVal n As Integer) As Single Dim s!, nc! '和与倒数 s=0 For i = 1 To n nc = 1 / i s = s + nc Next i fs_sum = s End Function 试题一.2 Private Sub Form_Click()For i = 1 To ...
有没有
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...
做两个
VB程序
简单题目
答:
1.用
VB
编
程序设计
一个简易的计算器 代码:Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1...
VB程序设计
题目
答:
题号:1 题型:单选题 内容:下列选项中不正确的是 选项:c、当用 Show方法显示窗体时,必定会发生Load事件 题号:2 题型:单选题 内容:当目录列表框的Dir1.Path属性的改变,将会触发下列哪一个事件 选项:c、Dir1_Change事件 题号:3 题型:单选题 内容:计时器控件的Interval属性可以设定Timer 事件...
(
vb程序设计
)求代码:设计一个运行界面如下图所示的程序,要求单击单选...
答:
Private Sub Check1_Click()If Check1.Value Then Text1.Font.Bold = True Else Text1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value Then Text1.Font.Italic = True Else Text1.Font.Italic = False End If End Sub Private Sub Check3_Click()If Check...
VB
的几道编程题,麻烦帮我解答一下
答:
3)把Text1的Text属性设为
程序设计
4)点Text1的Font属性右面的小按钮,在出现的对话框中设置 黑体 和 三号字体 5)把Form1的Caption属性设为 设置文本框属性 练习1-16:Private Sub Form_Load()Text1.PasswordChar = "*"End Sub Private Sub Text1_Change()Text2.Text = Text1.Text End Sub ...
VB程序设计
练习题?
答:
设计
界面:代码:Private Sub Command1_Click()Dim n As Long n = Val(InputBox("输入", "请输入您个年龄", 12))If n < 18 Then Print n; "少年"ElseIf n >= 18 And n < 45 Then Print n; "青年"ElseIf n >= 45 And n <= 59 Then Print n; "中年"ElseIf n > 59 Then...
关于一个
VB程序设计
答:
程序
界面如上图所示:一个标签(名称为Label1),三个复选框(名称分别为Check1、Check2和Check3,Caption属性分别为红、绿和蓝)一个命令按钮(名称为Command1,Caption属性为结束),完成程序功能的代码如下:Dim red As IntegerDim green As IntegerDim blue As Integer Private Sub Check1_Click()If ...
VB设计
一个
程序
,求解3~100以内的全部素数,并以每行5个素数的形式输出3...
答:
Dim i As Integer, j As Integer, x As Integer For i = 3 To 100 x = 0 'i是素数的标记 For j = 2 To i - 1 '如在此范围内都不能整除,i就是素数 If i Mod j = 0 Then x = 1 '如整除了,就不是素数 Next j If x = 0 Then k = k + 1 Print Tab(5 *...
vb程序设计
题,请高手解答
答:
Vb程序
代码如下:Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6, 8, 10, 12, 14, 16, 18)Dim c(1000)pa = 0: pb = 0: pc = 0 ea = UBound(a) '可变数组A的下标的上界和下界可以用函数UBO...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb程序设计经典例题代码
大一vb程序设计题库
VB程序设计题目
vb程序设计编程题库
简单的vb计算机程序
vb编写各种趣味小程序
vb程序设计经典案例
vb编程题目及答案解析
vb题目