vb计算机编程题

㈠ 计算机vb编程题目

Private Sub Command1_Click()
Dim a, c As Integer
c = 0
a = Val(Text1.Text)
If a > 100 Then
c = (a - 100) * 0.45 + 50 * (0.35 + 0.25)
ElseIf a > 50 Then
c = (a - 50) * 0.35 + 50 * 0.25
ElseIf a <= 50 Then
c = a * 0.25
End If
Text2.Text = c
End Sub
在窗体上添加一个按钮和两个文本框，Text1用来输入重量，Text2用来得出运价

㈡ 计算机vb编程题

open "d:\data1.txt" for output as #1
print #1,数据1 '保存一行
print #1,数据2 '再保存一行
close #1

㈢ 计算机VB编程题

PrivateSubForm_Click()
Fori=33To127
Printi;Chr(i),
IfiMod7=6ThenPrint
Nexti
EndSub

㈣ 计算机VB编程题 输出100～200不能被3整除的数，每行输出6个，分多行输出。

PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
Fori=100To200
IfiMod3<>0Then
n=n+1
Printi;
IfnMod6=0Then
Print
EndIf
EndIf
Next
EndSub

㈤ 计算机编程vb题

因为第一个数已经在上面代码的第三行那里输入了啊，所以下面循环这里就只需要输入9个数了。

其实程序可以优化一下：

DimxAsInteger,iAsInteger,maxAsInteger,minAsInteger
Fori=1To10
x=Val(InputBox("请输入第"&i&"个数"))
Ifi=1Ormax<xThenmax=x
Ifi=1Ormin>xThenmin=x
Next
Printmax,min

㈥ 求解：两道计算机VB编程题目

2、
(1)
穷举法，列出从1000到9999所有的4位数，分别测试其是否等于所分两个两位数和的平方。

(2)
计算结果：
2025=(20+25)^2
3025=(30+25)^2
9810=(98+10)^2

(3)
代码如下：
Private Sub Command1_Click()
For i = 1000 To 9999
If ((i \ 100) + (i Mod 100)) ^ 2 = i Then
Print i; "=("; i \ 100; "+"; i Mod 100; ")^2"
End If
Next i
End Sub

3、
(1)
穷举法，列出从1001到29999所有的自然数，分别测试其是否能同时被32和47整除。

(2)
由于47是质数，所以判断这个数是否能被32和47的最小公倍数1504整除，如果能整除那么这个数能同时被32和47整除。
代码如下：
For i = 1001 To 29999
a = 32 * 47
If i Mod a = 0 Then
Print i
End If
Next i

(3)
计算结果：
1504 3008 4512 6016 7520 9024 10528 12032 13536 15040 16544 18048 19552 21056 22560 24064 25568 27072 28576

================
希望对你有所帮助！

㈦ 求计算机作业vb编程题

'第一题：
Private Sub Command1_Click()
Dim N As Long, H As Long, T As String
N = Val(InputBox("请输入N的值"))
For i = 1 To N
H = H + i
T = T & i
If i < N Then T = T & "+"
Next
MsgBox T & "=" & H
End Sub
'第二题：
Private Sub Command2_Click()
Dim N As Long, H As Long, T As String
N = Val(InputBox("请输入N的值"))
H = 1: T = "1+"
For i = 2 To N Step 2
H = H + i - (i + 1)
T = T & i & "-" & i + 1
If i < N - 1 Then T = T & "+"
Next
MsgBox T & "=" & H
End Sub
'第三题：
Private Sub Command3_Click()
Dim N As Long, H As Long, T As String
N = Val(InputBox("请输入N的值"))
For i = 1 To N
H = H + i * (i + 1)
T = T & i & "*" & i + 1
If i < N Then T = T & "+"
Next
MsgBox T & "=" & H
End Sub
'第四题：
Private Sub Command4_Click()
Dim N As Long, H As Long, T As String
N = Val(InputBox("请输入N的值"))
N = 2 * N - 1
H = 1
For i = 1 To N Step 2
H = H * i
T = T & i
If i < N - 1 Then T = T & "*"
Next
MsgBox T & "=" & H
End Sub
'第五题：
Private Sub Command5_Click()
Dim N As Long, H, T As String
H = 1
For i = 20 To 2 Step -2
H = H * i
T = T & i
If i > 2 Then T = T & "*"
Next
MsgBox T & "=" & H
End Sub
'第六题：
Private Sub Command6_Click()
For i = 1 To 9
If i Mod 2 <> 0 Then Print String(i, "*")
Next
End Sub

㈧ 历年计算机二级vb考试真题

考研历年真题资料网络网盘免费下载

链接: https://pan..com/s/1t0SUkI-X-BW4v7Isl0dk4w

通过不断研究和学习历年真题，为考生冲刺阶段复习提分指点迷津，做真题，做历年真题集，对照考纲查缺补漏，提高实战素养，制定做题策略，规划方向；