77问答网
所有问题
当前搜索:
vb编程步骤
vb编程
怎么写?
答:
Private Sub Command1_Click()Dim x As Integer ji = 0 ou = 0 For i = 1 To 10 x = InputBox("请输入第" & i & "个整数:")If x Mod 2 = 1 Then ji = ji + 1 Else ou = ou + 1 Next i Text1 = "奇数 " & qi & " 个,偶数 " & ou & " 个"End Sub ...
vb编程
求教
答:
'题目:4-4 Private Sub Command1_Click()Dim x As Single, y As Single '声明x和y为单精度变量 x = Val(InputBox("请输入x值")) '输入x值 If x > 3 Then '选择性结构判断x>3是否成立 y = x + 3 '计算y的值 Else '否则(即x<=3)If x > 0 Then '选择...
求几个
VB编程
解答
答:
第二题:思路:1.输入一个正整数n 2.如果n为奇数,I = n+1,否则I = n+2 用i为初值开始循环,每次循环i递增2,这样保证I就是大于n的偶数。设置变量c = 0,作为计数器,每找到一个满足要求(I mod 3 = 0)的数就计数器加1,当c = 10循环结束。代码如下:Dim n As Integer Dim i ...
用VB编程
这道题 怎么做?
答:
Private Sub Command1_Click() Dim x As Double, y As Double x = Val(Text1.Text) If x <= 0 Then y = x / 3 + 1 ElseIf x <= 100 Then y = x + 10 Else y = 2 * x - 10 End If Text2.Text = Round(y * 100) / 100End Sub ...
VB编程
的程序
答:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu sj End If End Sub Private Sub jdsr_Click()Label2.Caption = "③借刀杀人"Label1.Caption = "敌已明,友未定,引友杀敌,不自出力,以损推演"End Sub Private ...
利用
VB程序设计
语音进行信息的编程加工的四个
步骤
答:
运行程序
步骤
: 1.编辑:输入源程序并存盘(.C) 2.编译:将源程序翻译为目标文件(.OBJ) 3.链接:将目标文件生成可执行文件( .EXE) 4.运行:执行.EXE文件,得到运行结果。
怎样
用VB
来
编程
答:
'验证: msgbox test(2583)private function test(num as long) as boolean dim i as long, s as string, sum as long s = cstr(num)for i = 1 to len(s)sum = sum + val(mid(s, i, 1))^2 next if sum = 145 then test = true else test = test(sum)end if end function ...
vb
如何
编程
二进制文件
答:
1、用open打开二进制文件,用put写文件,用get读文件。2、所需工具:vb6 3、示例:(二进制文件的写出与读取)Private Sub Command1_Click() Open "c:\111.txt" For Binary Access Write As #1 Dim s As String Dim n1 As Integer, n2 As Long Dim f1 As Single, f2 As Doub...
求教
VB编程
答:
Dim r, n As Integer r = Array("星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")n = InputBox("请输入一个数(0-6)")If n < 0 Or n > 6 Then MsgBox "输入错误!"Exit Sub End If Print r(n)...
VB编程
的程序
答:
Private Sub Image1_Click()Text1.Text = "单击向左箭头"End Sub Private Sub Image2_Click()Text1.Text = "单击向右箭头"End Sub Private Sub Image3_Click()Text1.Text = "单击向上箭头"End Sub Private Sub Image4_Click()Text1.Text = "单击向下箭头"End Sub ...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜