55问答网
所有问题
当前搜索:
vb程序设计编写程序题
vb
经典
程序
100例(vb经典程序例题及分析)
答:
跪求用
VB编写程序
计算1~100之间的奇数和、偶数和。要源码。语句自己找给思路。第一种:暴力运算 1.申请2个变量jsum,osum分别放奇数和、偶数和。赋初值0。2.做个循环从1到100,变量用i 2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum=osum+i 3.输出陆猛jsum,osum 第二侍历种:推算法。由...
用
VB写设计程序
代码,求:s=1+(1+2)+(1+2+3)+??+(1+2+3+??+n)的值...
答:
Function sumD(n As Integer) As Single s = 1 i = 1 Do i = i + 1 s = s + 1 / i Loop Until i >= n sumD = s End Function Function sumF(n As Integer) As Single s = 0 For i = 1 To n s = s + 1 / i Next i sumF = s End Function Private Sub Form_...
VB程序设计题
:设计一个字符大小写的转换程序,
答:
字符大小
写
转换
程序
,当文本框Text1中输入大写字母,在文本框Text2中同时显示其小写字母;当文本框Text1中输入小写字母,在文本框Text2中同时显示其大写字母;当输入其他字符,则原样输出。建立两个文本框 Private Sub Form_Load()Text1.Text = ""Text2.Text = ""End Sub Private Sub Text1_KeyPres...
在
VB
中,
编写
一个
程序
,计算15!-8!+5!的值。
答:
当键盘输入n,表示求该式的前n项的和。比如输入3,就是求:1*3+2*4+3*5 比如输入2,就是求:1*3+2*4 所以代码为:dim n as integer dim s as double dim i as integer n = Val(InputBox("输入一个正整数!"))s =0 for i = 1 to n s = s + i*(i+2)next i Print s ...
有没有
VB程序设计
的大佬会这几道题?急求!万分感谢
答:
第二题 Private Sub btnAverage_Click(sender As Object, e As EventArgs) Handles btnAverage.Click Dim n As Integer Dim sum As Double Dim average As Double n = CInt(txtNumber.Text)sum = 0 For i As Integer = 1 To n sum += i Next average = sum / n MessageBox.Show("The ...
VB程序设计题
答:
A、向顺序文件中
写
数据,必须先打开文件。B、对文件进行操作,必须要保证文件已经存在。C、二进制文件不是
VB
中的文件类型。D、EOF函数返回给文件分配的字节数。9、保存文件时,工程文件的后缀名是___C___。A、.PRG B、.FRM C、.VBP D、.EXE 10、数学关系式10<x≤15表示成VB表达式为___B_...
VB编程
,
设计
一个
程序
,在文本框里输入一个三位数,单击窗体,在窗体中输出...
答:
", vbOKOnly + vbCritical Text1.Text = "" Text1.SetFocus Exit Sub End If b = a Form1.Cls Print "个位数、十位数、百位数分别是:" For i = 1 To 3 Print b Mod 10; Space(5); b = b \ 10 NextEnd Sub已经运行过。运行结果:...
求助一道
VB程序设计题
。
答:
msgbox("错误,请输入一个正整数。")text1=""exit sub else js=1 for i=1 to val(text1)js=js*i next i msgbox(js)end if end sub 你可以加入这段代码,text1就只能输入数字跟Backspace健了 Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii <>
vb
KeyBack And KeyAscii < ...
VB程序设计
习题代码
答:
Private Sub Command1_Click()Dim sum As Double, i As Integer Dim b(1000) As Single Dim x As Single b(0) = 1 x = InputBox("请输入大于1的数字:", "数据输入")If x <= 1 Then MsgBox ("X值输入错误!请输入大于1的数字!")End If For i = 1 To 1000 ' 从第二...
VB程序设计
里的题,求详解
编程
,谢谢了!
答:
Private Sub Command1_Click()Dim a As Single, b As LongDim n As Long, f As IntegerDim c As Singlef = 1For n = 1 To Val(Text1.Text) b = b * 10 + 3 a = b + 0.3 c = c + a * f f = -fNextLabel2.Caption = cEnd SubPrivate Sub Form_Load()Label1....
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb程序设计窗体设计题及答案
vb程序设计题库220题
vb程序设计经典例题选择题
vb程序设计经典题目
vb程序设计第四版考试题
vb程序设计的代码例题
大一vb程序设计题库
vb程序设计期末考试题
vb程序设计经典例题