我有如下代码:
该函数使用接口块在模块中声明。
module my_subs
implicit none
interface
function cross(a,b)
integer, dimension(3) :: cross
integer, dimension(3), intent(in) :: a, b
end function cross
end interface
end module my_subs
program crosstest
我想在子例程中分配一个数组,然后在主程序中使用该数组,并将其传递给其他子例程。在过去(F77?)传递可以在公共块中完成,但现在最受欢迎的过程似乎是使用模块。当我尝试这样做时,如代码示例中所示,编译器告诉我 Rank mismatch in argument ‘f’ at (1) (scalar and rank-1) 显然,主程序认为'f‘是一个标量:但是,我读这段代码的意思是,我已经将它声明为一维数组,在子例程和主程序中都是如此。我遗漏了什么? 我尝试过各种变体,比如将变量声明为模块的一部分,但我想不出任何方法可以使编译过程没有错误(有些还会产生更多的错误;-( )。任何洞察力都是
我有一个事件处理程序Sub,它侦听来自Bloomberg API的响应消息,并将其存储在Dd数组中。
根据,事件处理程序必须是subs,但我想进一步分析我的主要方法中的数据。
如何引用事件处理程序中创建的数组,以便继续处理数据?
事件处理程序:
Private Sub session_ProcessEvent(ByVal obj As Object)
On Error GoTo errHandler
Dim eventObj As blpapicomLib2.Event
Set eventObj = obj
If Application.Ready The
我一直在尝试在excel VBA for Applied项目中创建这个密码保护类型的东西。因此,我创建了这个模块来保护工作簿中的所有工作表:
Public Sub Auto_Open()
Dim ws As Worksheet
Dim psword As String
psword = "Unit 12"
For Each ws In Worksheets
ws.Protect Password:=psword
Next ws
End Sub
现在我想要做的事情是,每当有人打开用户表单时,就会出现一个要求输入密码的输入框,如果有人输入了无效的密码,就会出现一个消息
我有一些代码和一些模块,我想在其中访问变量。
在我的开始模块中,我将变量声明为"Public“--这就是我希望能让我访问不同模块中的变量.
Option Explicit
Public Ttermanf, Ttermend, Date2, DateN, Ttermeld As Date
Public ft, mainb_ret, swp, Tmod, Tsub4, Tslz4 As String
然后,我从我的启动模块调用一个用户表单。
Form1.show
在用户表单上有一堆Textboxes,下拉列表等等。平常的事情,到目前为止都在工作.
当我单击"button1“时,它
如何对perl文件执行“浅层”语法检查。标准perl -c很有用,但它会检查导入的语法。这有时很好,但当您在代码存储库中工作并推送到运行环境时,您在存储库中定义了一个函数,但尚未推送到运行环境中。它无法检查函数,因为导入引用了系统路径(即使用Custom::Project::Lib qw(foo bar baz))。
我想将像3cm/µs² + 4e-4 sqmiles/km/h**2这样的字符串拆分为它的 (在本例中是m/s**2)和它的大小(单位的倍数)。
因为它同时提供了和,所以我想使用渐近是个好主意。但实现这一目标的好方法是什么呢?我会编写如下算法,但我希望避免重新发明一个平方轮:
将数字和字母之间的转换(除了类似于4e-4的语法)和空格(除非它在显式运算符旁边)转换为乘法,然后标记
用SI表示替换每个非数字令牌(也检查SI-前缀)
将新表达式简化为Magnitude * some SI units (在不一致的单元上提供有意义的错误消息,例如Cannot add m**2 to s)
谁能告诉我下面的代码是怎么回事:
'Variables at top of module or some function/sub here
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As Strin
我想去掉在区分用户定义的复合函数时,sympy做的一个额外的替换。代码是
t = Symbol('t')
u = Function('u')
f = Function('f')
U = Symbol('U')
pprint(diff(f(u(t),t),t))
输出为:
d d ⎛ d ⎞│
──(f(u(t), t)) + ──(u(t))⋅⎜───(f(ξ₁, t))⎟│
dt dt ⎝dξ₁
我想在我目前正在处理的项目中使用我在另一个.mdb中创建的一些函数。我首先进入VBA编辑器(alt+f11),然后右键单击->导出...在我的桌面上另存为module1.bas,然后我打开我的另一个项目,右键单击->导入->模块1.b现在我在其他模块中看到了module1,所以我在代码中使用了一些函数,我单击了保存并编译。
Compile Error Sub or Function not defined.
它指向我刚才导出的模块中定义的函数。如果我写道:
module1.functionName parameter
它可以编译,但我通常不需要像那样键入引用。为什么会发生这
我在所有模块中都使用选项显式,这个模块让我抓狂,也许是在调用方法中丢失了东西。
读取工作表并将特定数据合并到新的工作簿(单工作表)中,变量colData应增加该列,并且它将被更新并在有工作表的情况下多次传回(例如。将某一年的月1-12复制为cols 1-12,然后次年以cols 13-24复制月份1-12 )
对函数的调用返回一个布尔值(这是后面的一个错误检查):
'Attempt to load Total Revenue for the Import Sheet
TotRevLoaded = Application.Run("modGetDataHelpers.lo
我正在开发一个程序,它搜索给定字符串中某个子字符串的所有实例,然后将找到的每个子字符串的索引添加到一个列表中。
dna = input("Input a DNA string: ")
substring = input("Input a substring to search for in DNA: ")
def find_all(substring, dna):
index_list = []
index = 0 - len(dna)
try:
while True:
index = dna.i
我正在创建一个宏,我需要访问在模块中创建和填充的数组(button_click操作)。
Private Sub CommandButton1_Click()
Dim tmojo As Worksheet
Dim mojocell As Range
Set tmojo = Sheets("table mojo")
colls = tmojo.Range("N1").End(xlToLeft).Column
i = 1
For Each cCont In Me.Controls
If TypeName(cCont) = "ComboBox"
我见过梅在这个问题上提出的问题,但大多数都与我的相反。我有一个字符串列表(数据帧的列)和一个子字符串的列表。如果每个字符串包含子字符串,我希望将其与子字符串列表进行比较,然后返回该子字符串,否则打印“compare”。
subs = [cat, dog, mouse]
df
Name Number SubMatch
dogfood 1 dog
catfood 3 cat
dogfood 2 dog
mousehou
我正在尝试学习如何使用函数。我有以下代码:
program main
implicit none
write(*,*) test(4)
end program
integer function test(n)
implicit none
integer, intent(in) :: n
integer :: i, ans
ans=1
do i=1,n
ans=ans*i
enddo
test=ans
end function test
当我编译(使用gfortran 4.1.2)时,我得到以下错误:
In file test.f90:4
w