帮我编写个程序 VB的～

vb 编写小程序~

题主你好，CF有腾讯的TP保护机制（运行时右下角有个TP的进度条题主可以看一看），会屏蔽包括keyevent、winio.sys在内的模拟按键功能，并对驱动级进程注入有监控和防范（所以题主可以看到那些外挂需要天天更新甚至一天更新几次来过免杀）。

另外模块级别是什么意思？

VB 写底层是一件非常困难的事情，建议题主使用 C / C++ 写自己的免杀驱动，然后用 VB 调用。

点击“采纳”后自动回复答案和过程，来自清华大学大一学生

OK，我做好啦，我已经试过啦，

首先你在窗体上建立一个命令按钮，代码如下：

Dim b(1 To 20), max!, min!

Private Sub Command1_Click()

For i = -1 To x

a = Val(InputBox(""))

If a = -1 Then Exit For

c = c + 1

b(c) = a

i = i - 1

Next

max = b(1): min = b(1)

For i = 2 To c

If b(i) > max Then max = b(i)

If b(i) < min Then min = b(i)

Next i

Print "你输入的数中最大为："; max, "最小为："; min

End Sub

你输入学生分数后，最后按-1才会退出，记住一定要按-1

好啦，不信你可以在VB中做下，就会看到效果啦，不懂发消息问我！

假设有20个学生
dim a(1 to 20) as single '定义数组用来存成绩
dim max as single,min as single
dim i as integer
for i=1 to 20 '利用循环语句输入20个分数
a(i)=val(inputbox("请输入分数","输入"))
next
max=a(1) '假设最高分和最低分都是第一个学生的分数
min=a(1)
for i=2 to 20 '将最高分和最低分和后面的学生分数比较，找出最终的结果
if a(i)>max then max=a(i)
if a(i)<min then min=a(i)
next
print max,min

可以任意输入你的个数。只要单击command1就可以输入成绩。另外还有一个picture1当单击command2时来显示最终的结果。

Dim chj(100) As Integer
Dim t As Integer
Dim max, min As Integer
Private Sub Command1_Click()
chj(t) = Val(InputBox("请输入第" & t + 1 & "同学的成绩", "输入"))
t = t + 1
End Sub
Private Sub Command2_Click()
max = -1: min = 100
For i = 0 To t - 1
If chj(i) > max Then max = chj(i)
If chj(i) < min Then min = chj(i)
Next
Picture1.Print "最高成绩：" & max, "最低成绩：" & min
End Sub
Private Sub Form_Load()
t = 0
End Sub

相关视频