我的代码正常工作，直到我想卸载新生成的表单。 我有2个定时器:: 1为加载飞溅形式和1为卸载飞溅形式。 Option Explicit
Private frmSplash As Form
Private Sub splashForm()
Set frmSplash = New myForm
With frmSplash
.Width = 4000
我的程序有问题，程序应该询问用户的驱动程序时间，用户将输入驱动程序的时间，程序应该从最快到最慢排序，然后按顺序显示它们。 但是，当我尝试并运行该程序时，drvers时间已排序，但驱动程序名称尚未排序。 示例： 用户必须输入到程序中的内容。 Drivers name drivers time
Sebastian Williams 10
Tom Hamilton 6
Danny R
我有两个主要功能，第一个是search_bank。它会逐个单元格搜索Credits，Type和Store列，并判断是否匹配。如果匹配，则返回True，并且副作用会更改匹配单元格的颜色。 第二个sub我用来测试第一个函数。 我遇到的问题是我得到一个运行时错误'424'：对象需要，没有指出问题出在哪里。 这是第一个功能： Function search_bank(Store As String, am
我正在制作一个程序，它可以告诉给定的数字是否是素数。无论我输入素数还是其他数字，它总是显示“它不是素数”。它有什么错误吗？ 10 input "what is the number";a
20 let b=1
30 let b=b+1
40 let k=a/b
50 let p=fix(k)
60 if p=k then goto 100
70 if b<a then go